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Introduction 



This book explains not only the commands, functions, and oper- 
ators that are usually treated in books about BASIC but also those 
that often get only superficial treatment. In addition, full discussions 
of Microsoft's powerful line editor and programming aids are pre- 
sented. Throughout this book careful consideration is given to the 
proper form and structure of the programs. As each new command, 
statement, or function is presented, it is illustrated by a simple 
example. Tutorials that involve larger programs are presented at the 
end of most chapters. These tutorial programs integrate the new 
ideas presented in the chapter with concepts explained in previous 
chapters. 

Microsoft BASIC, which we shall refer to throughout this book as 
MBASIC, is one of the most popular versions of BASIC used on 
microcomputers. What is more, Microsoft wrote the proprietary ver- 
sions of BASIC used on some of the most popular microcomputers, 
including Apple, Radio Shack, and IBM, all of which are very sim- 
ilar to MBASIC. 

This text is intended for the beginner in programming as well as 
the experienced programmer. It is divided into three sections entitled 
"Basic Tools," "Advanced Tools," and "Power Tools." 
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Section I, "Basic Tools," explains the basic commands of BASIC. 
Chapter 1 provides some background information about running 
MBASIC from CP/M and discusses the keyboard, focusing on the 
keys that play a special role in MBASIC. In Chapter 2 you will begin 
programming, learning the commands LET, INPUT, and PRINT, 
along with the arithmetic operators. Chapter 3 explains the house- 
keeping chores of MBASIC: that is, how to load and save your 
programs, how to look at what files are on a disk, and so on. 

Chapter 4 examines the decision-making process in program- 
ming. You are introduced to the concept of program branching 
through the IF/THEN and GOTO statements. 

Chapter 5 explains MBASIC's line editor through numerous 
examples. Chapter 6 shows you how to control output to both the 
printer and the screen, using the LLIST, LPRINT, PRINT USING, 
and LPRINT USING statements. Chapter 7 shows you how to control 
the precision of your output by defining the output to be integer-, 
single-, or double-precision. Chapter 7 also introduces the powerful 
loop-control pairs FOR/NEXT and WHILE/WEND. 

Chapter 8 acquaints you with some of MBASIC's built-in func- 
tions. The functions emphasized include those used by all program- 
mers, such as TAB, SPC, RND, and SGN, and also the mathematical 
functions, like SIN, COS, and LOG. Chapter 9 continues the discus- 
sion of functions, presenting the string functions LEFT$, RIGHT$, 
and MID$, along with several others. 

Section II, "Advanced Tools," deals with commands and functions 
that separate the amateur from the serious programmer. Chapter 10 
explains the command OPTION BASE and the MOD operator, both 
of which are important tools for the serious programmer. Chapter 11 
takes up the subject of organizing your programs through subrou- 
tines. Chapter 12 presents two of MBASIC's most useful types of pro- 
grams: namely, sorting and searching programs. 

Chapter 13 shows you how to manage a task encountered by every 
programmer: that is, debugging your program. Regardless of how 
experienced or careful you are, program bugs will occur. A system- 
atic approach to eliminating bugs is presented in this chapter. 

Chapters 14 and 15 explain sequential and random-access files. 
The next two chapters, 16 and 17, are devoted to Boolean operators 
and user-defined functions, two topics that are generally treated 
superficially or neglected completely by most books on BASIC. Each 
topic is presented in enough detail to enable you to make full use of 
these powerful programming tools. 
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Section III, "Power Tools," addresses the professional program- 
mer. Chapter 18 presents some commercial programming aids, such 
as a word processor, a cross-reference generator, a program to index 
files, and a compacting program. Chapter 19 explains how to write a 
menu driver that ties in a series of programs. Chapter 20 uses the 
menu driver with the final presentation of a payroll program that is 
first presented in Chapter 2 and is subsequently enhanced at various 
points throughout the book. Chapter 21 once again employs the menu 
driver and presents an exceptionally useful mailing list program. A 
program to build keyed files is also demonstrated in this chapter. 
Finally, Chapter 22 deals with writing user documentation, the goal 
of which is to help the nonprogrammer operate your program as 
smoothly as possible. 

If you prefer not to type in longer programs, the programs from 
the Tutorial sections of the chapters are available on an eight-inch, 
IBM-formatted, single-density disk. The programs provided on the 
disk are the same as those presented in this book; no additions have 
been made. The programs are intended for tutorial purposes only. 

For more information about ordering one of these disks, write to: 
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11 Primrose Ct. 
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In the Beginning 



You are reading this book to learn a new language, Microsoft 
BASIC, a language that allows you to communicate with a computer. 
The word BASIC is an acronym, a combination of the first letter of 
each of the words in the name Beginner's All-purpose Symbolic 
Instruction Code. In learning any language — whether it is a foreign 
language or a language to communicate with computers — a key fac- 
tor is, of course, the vocabulary. In BASIC, fortunately, the vocabu- 
lary is relatively small— just over 100 words, often called keywords. 
Although the vocabulary is small, however, there is a very precise 
meaning for each keyword. 

If you were a beginning student in Spanish, you could talk to 
someone using improper sentence construction. The person you were 
speaking to might still understand what you were saying by inferring 
from your remarks what you actually mean. But when you communi- 
cate with a computer, the computer will take each statement that you 
make literally. So it is up to you to provide the information in the 
precise format and use the proper syntax for each statement you write. 
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What Is a Program? 

A program is a series of statements that the computer will exe- 
cute one at a time. A program can be as short as one statement or it 
can be longer than this chapter. There are many languages that pro- 
grams can be written in. Here, of course, we are interested only in 
programs written in Microsoft BASIC. 

Before we go any further, let's take a look at a sample BASIC 
program: 

10 PRINT "Hello" 
20 PRINT "Goodbve" 
30 END 

In considering this program, we will not attempt to go into the 
details. Instead, we will look just at the main characteristics. 

Each line begins with a line number (10, 20, 30), followed by one 
of MBASIC's keywords or instructions (PRINT, END). Notice also 
that each of the line numbers is a multiple of ten. This is a common 
programming practice, since if you later discover that additional 
instructions are needed, you can insert them by assigning them one of 
the missing line numbers (for example, 15 may be inserted between 
10 and 20). The program is executed in line number sequence. 

You will also notice that the program has both upper- and lower- 
case letters. In particular, PRINT and END are uppercase because 
these are Microsoft BASIC instructions. The "Hello" and "Goodbye" 
are in lowercase because they are not instructions. Historically, 
BASIC programs have been entirely in uppercase. In this book we 
encourage the use of lowercase when appropriate. 

Starting Microsoft BASIC 

One of the most basic components of your computer's operation is 
the disk operating system (DOS), which is sometimes called simply 
the operating system. The most common DOS used with MBASIC is 
CP/M. CP/M, which stands for Control Program/Microcomputers, is 
a program written especially for your brand of computer. CP/M pro- 
vides a standard means of communicating with your computer's disk 
drive, screen, and keyboard. This means that any computer that has 
a version of CP/M written for it will run MBASIC. 

Operation of your computer with CP/M requires a disk with CP/M 
on it, usually referred to as a system disk. On computers with floppy 
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disks, a system disk must be in the computer at all times. If your 
computer has a built-in hard disk, the CP/M program may reside on 
the hard disk. In addition, starting up your microcomputer with 
CP/M is a little different for each brand of computer. The process 
usually involves inserting a system disk into one of your disk drives 
and then pressing the RESET switch on your computer. The computer 
will then try to read the CP/M program from the disk. 

When you start or boot your computer with CP/M, the first thing 
that appears on the screen is a sign-on message. This message gives 
CP/M's version number and some other data, depending on your par- 
ticular machine. CP/M is now in the computer's internal memory and 
will allow you to communicate with the computer. Below the sign-on 
message is the prompt A>. CP/M prints a prompt to let you know 
that it is ready for your next command. (On computers using MP/M, 
the prompt will be 0A>.) 

The letter A in the prompt tells you which disk drive you are 
logged onto. If you have two disk drives, the second one will have the 
prompt B> (or 0B> for MP/M) when you are logged onto it. 

When your prompt is A>, we say that you are "logged onto the A 
drive." This means that any information that the computer reads 
from the disk will come from the disk in drive A unless you specifi- 
cally tell it to look on a different drive. 

When CP/M first starts, it is normally logged onto the A drive. In 
order to change to the B drive, type B: and press the RETURN key. 
You should then receive the prompt B>. If you wish to return to the 
A drive, just type A: and press RETURN. Note that you must have a 
disk properly inserted into the B drive before you can log onto the B 
drive. 

DISPLAYING THE DIRECTORY 

When you are in CP/M and want to see what is stored on your 
disk, you use the CP/M directory command called DIR. When you 
enter the DIR command, the screen will display all of the files on the 
logged-on disk drive. All programs or other information stored on 
your disk are referred to as files. A sample screen display of all the 
files on a disk will look something like this: 

A>DIR 

A: PIP COM : STAT COM : SEA WE : GUESS BAS 
A: MBASIC CON 

A> 
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The A: on the left of the screen indicates the disk drive whose 
directory is being displayed. If you have additional drives, you may 
log onto any of these and display the directory for the disk they con- 
tain. However, a system disk with CP/M on it must be in the A drive 
at all times. 

LOADING MICROSOFT BASIC 

The Microsoft BASIC program (referred to as MBASIC) is gener- 
ally called MBASIC.COM, MSBASIC.COM, or BASIC80.COM, but 
the program may have some other name. Check your disks to deter- 
mine the name (use the DIR command). Now, with the disk contain- 
ing Microsoft BASIC in the logged-on drive, type MBASIC (or the 
appropriate name) and press RETURN. (It is not necessary to type the 
letters .COM.) CP/M will then load the file MBASIC.COM and exe- 
cute it. On the screen will appear MBASIC's sign-on message. The 
Ok below the sign-on message is MBASIC's prompt, letting you know 
it is ready for you to begin to write or run programs. 

When you enter MBASIC, you will see a short horizontal line (or 
sometimes a box) under the Ok prompt. This is known as the cursor. 
The cursor indicates the exact place on the screen where a character 
will appear when you press one of your keyboard keys. You can write 
anything you want, of course, but regardless of how much you write, 
the cursor will always appear just to the right of your last entry. Try 
greeting MBASIC by typing HELLO. After you press RETURN, the 
message "Syntax error" appears on the screen. A syntax error means 
that MBASIC did not understand a word that you typed. Syntax 
errors will be discussed later in this chapter, but you will probably 
see a few more before then. 

To return to CP/M from MBASIC, give the SYSTEM command 
and press RETURN. You should get the same CP/M prompt that you 
had before you loaded MBASIC. In fact, the CP/M program stays in 
memory along with the MBASIC program. Now that you are back in 
CP/M, you will have to load MBASIC all over again to get the Ok 
prompt. 

Modes of Operation 

There are three modes of operation for Microsoft BASIC. The 
mode that you are in determines what MBASIC will do with the 
instructions you give it. When you start MBASIC, you receive the 
prompt Ok. You then have two modes available to you immediately. 
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DIRECT MODE 

In the direct mode, MBASIC acts very much like a calculator. No 
line numbers are required. Direct mode is not, of course, the main 
purpose of MBASIC, but it is useful at times — particularly when you 
are debugging programs or solving short problems in which you 
want to perform quick calculations. For example, if you want to add 
two numbers together, just type 

PRINT 4*3 

7 

Ok 

After typing the 3, press RETURN; the answer 7 comes up imme- 
diately. The instructions are lost as soon as the calculation is exe- 
cuted; that is, you must type PRINT 4+3 again to get the same 
result. 

Direct mode is also referred to as command mode. 

INDIRECT MODE 

The second mode is the indirect mode. This is what you will be 
using most of the time. In this mode you first put a line number on 
each statement you want MBASIC to execute. For example, the 
numbers that we have just added in direct mode would look like this 
in indirect mode: 

10 PRINT 4+3 

You can put virtually any number at the beginning of a statement. 
When it has a line number in front of it, a statement is known as a 
program line, and an accumulation of such lines is known as a pro- 
gram. Once you have a program, you can run it and get your results. 
The indirect mode saves your instructions in the computer along with 
their line numbers so that you can print them to the screen or to the 
printer as many times as you wish simply by typing RUN. Try this 
with the preceding example, as follows: 

10 PRINT 3+4 
RUN 

7 

Ok 

OIK 

7 

Ok 



6 The MBASIC Handbook 



EDIT MODE 

The third MBASIC mode is the edit mode. This is a very powerful 
tool for correcting and editing BASIC programs. It allows you to 
move the cursor quickly to any position you want in a line, to insert or 
delete text, or to find or replace text. 

For the time being, it is enough for you to know that if you make a 
typing mistake when you write or "enter" a line, you do not need to 
worry about it. In case of a mistake, you can simply press RETURN 
and rewrite the line. For example, let's say that you accidentally 
enter 

10 PFINT "Hello" 

There are two things you can do. First, if you discover the error 
before you press RETURN, you can use the BACKSPACE key (sometimes 
called RUBOUT), backspace to the F, and correct the error by retyping 
the rest of the line. If you have already pressed RETURN or feel it is 
too much work to backspace over half the line, you can simply retype 
the line with the same line number. If you type two lines numbered 
with a 10, the second will automatically replace the first. Note that 
typing just a line number followed with a RETURN deletes or "kills" 
everything that you entered using that line number. 

As you begin to write longer programs in MBASIC, you will find 
the edit mode extremely useful. The details of the edit mode will be 
gone over thoroughly in Chapter 5. If at any time in the next few 
chapters you feel that you would like to know more about correcting 
typing errors and editing, place a bookmark wherever you are and 
turn to Chapter 5. 

Kinds of Data 

There are two general categories of data used with MBASIC: 
numeric data and string data. Numeric data, of course, consists of 
numbers. You are already familiar with some of the things that 
MBASIC can do with numeric data. For instance, MBASIC pro- 
grams can add, subtract, multiply, and divide numeric data. 

String data can consist of letters, punctuation marks, and digits. 
In short, string data can be any combination of characters. Strings 
can be any length up to 255 characters. For instance, in lines 10 and 
20 of the program example presented at the beginning of the chapter, 
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the "Hello" and "Good bye" are both string data. You will be using 
string data even in your first program, but the full scope of things 
that MBASIC can do with strings is not covered until Chapter 9. 

Both numeric and string data can be input and output by 
MBASIC programs. For example, if you are interested in writing a 
payroll program to keep track of employees, you could think of an 
employee's name and address as string data, whereas an employee's 
salary and age consist of numbers and would therefore be numeric 
data. The discussion of variables in Chapter 2 will show how pro- 
grams can store both kinds of data. 



Kinds of Instructions to MBASIC 

The instructions to MBASIC fall into four categories. 
COMMANDS 

In their most common use, commands are instructions that are 
given to MBASIC in direct mode and that are executed immediately 
when you press RETURN. Two commands that you will use quite often 
are RUN and LIST. 

STATEMENTS 

Statements are instructions to MBASIC that are preceded by a 
line number and that are not executed until the entire program is 
run. The PRINT statement in lines 10 and 20 of the sample program 
is a statement that you will use frequently. 

It is possible that an MBASIC instruction can be used as both a 
command and a statement. For instance, the PRINT instruction is 
usually thought of as a statement, but it can also be used as a com- 
mand in the direct mode. On the other hand, RUN is usually thought 
of as a command; but if it is preceded by a line number, then it is 
executed when the program reaches that line, since it is being used 
as a statement. 

FUNCTIONS 

Functions are "subprograms" that are built into the BASIC inter- 
preter. They save you, the programmer, from having to code these 
frequently used operations. One of the more commonly used functions 
is SQR, which determines the square root of a number. 
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OPERATORS 

Operators define what is done with numeric or string data. Some 
operators — for example, the plus sign (+) and minus sign ( — ) — are 
used for calculations. Others, such as the greater than sign (>) and 
the less than sign (<), are used for comparing data. 



Getting to Know Your Computer 

Your computer consists of several devices. These include a key- 
board, a display screen, one or more disk drives, possibly a printer, 
and the computer itself with its internal memory. 

THE KEYBOARD 

MBASIC runs on many different computers. Some have built-in 
keyboards, whereas others require that a separate terminal be 
added. What is more, the keyboards themselves vary from one com- 
puter to another. The letters and numbers are standard, but from 
that point on, there are many possible variations. 

RETURN When you have finished typing a line and wish to 
transfer it to the computer's memory, you press the 
RETURN key. On many terminals the name of this 
key is ENTER or RET. Throughout this book we will 
always use the term RETURN when referring to 
this key. Pressing the RETURN key also moves you 
to the next line. 

SHIFT and The SHIFT key has the same function on a comput- 
CaPS LOCK er that it has on a typewriter. It causes either an 
uppercase letter to be printed or the upper symbol 
to be printed if there are two symbols on the key 
(as with the numbers and punctuation marks). The 
CAPS LOCK key affects only the letters, causing 
uppercase letters to be printed. Once pressed, the 
CAPS LOCK key stays in effect until it is released by 
a second pressing. 

CONTROL The CONTROL or CTRL key is similar to the SHIFT 
key. When pressed together with another charac- 
ter, it causes a special message to be sent to the 
computer instead of the character printed on the 
key. But in general, these control characters are 
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not transmitted to the screen and their messages 
are not apparent to the operator. We will elaborate 
on control characters in later chapters. In this 
book, control characters are written as CTRL-X or 
"X to indicate holding down the CTRL key and any 
other letter (in this case X). 

If your terminal does not have the CTRL key, 
there will be a combination of keys to press to per- 
form this function. You will have to consult the 
manual that comes with your terminal to deter- 
mine what they are. 
BACKSPACE Again, your terminal may or may not have these 
and DELETE keys. The BACKSPACE and DELETE keys will both 
delete the character immediately to the left of the 
cursor. These keys are most commonly used for 
correcting typing errors before the RETURN key is 
pressed. If your keyboard does not have these keys, 
your manual will tell you the combinations of keys 
to press to perform these functions. Older versions 
of CP/M do not recognize the BACKSPACE key. If you 
have CP/M version 2.0 or later, you will find the 
BACKSPACE key much easier to use than the DELETE 
key. 

REPEAT Many terminals have a REPEAT key. When a par- 
ticular key is pressed at the same time as the 
REPEAT key, the character represented by the first 
key repeats rapidly until the REPEAT key is re- 
leased. On other terminals, simply holding down 
any key will cause the character it represents to 
repeat after a short period of time. The repetitions 
stop when the key is released. 

ESCAPE The ESCAPE key is used in editing MBASIC pro- 
grams while in the edit mode (see Chapter 5). 
When you are inserting characters, the ESCAPE key 
tells MBASIC that you are through inserting char- 
acters and that any text you enter is to be consid- 
ered as edit commands. This key may be labeled 
ESC or ALT on your keyboard. 

tab The tab key works like its counterpart on a type- 
writer. TAB stops are usually set at every eight 
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columns. Pressing the TAB key will move the cursor 
to the right, bringing it to the next tab stop. The 
TAB key is used mainly for aligning program 
statements or output for better readability. The 
TAB key otherwise acts much like the space bar. 

LINE FEED Pressing LINE FEED causes the cursor to move 
down one line on the screen. But in contrast to the 
RETURN key, LINE FEED does not cause the mate- 
rial you are entering to be transferred to the com- 
puter's memory. LINE FEED is used when you are 
entering a line in an MBASIC program that is 
greater in length than the number of columns that 
your terminal supports. When you have finished 
entering the material, which may be on two or 
more lines, the RETURN key must be pressed. 

If your keyboard does not have one of the keys we have just dis- 
cussed, it may be possible to simulate the function with the CTRL key. 
For example, if your terminal does not have a LINE FEED, you can 
simultaneously press the CONTROL key and the J key. This combina- 
tion of keys will send the same message to the computer that line 
feed would. Other useful control keys are CTRL-I for TAB and CTRL-H 
for BACKSPACE. 

If you are a typist and just starting to work on a computer, there 
are two standard keys that are different. On your computer key- 
board, there are distinct keys for one (1) and for zero (0), and conse- 
quently you cannot interchange with the letter O or 1 with the 
lowercase letter L 

THE DISPLAY SCREEN 

The common display screen for computers using CP/M and 
MBASIC has 80 columns and 24 lines. If your screen and keyboard 
are in one unit, you may also have specially labeled keys that affect 
the screen display. For example, some terminals have a key to clear 
the screen, usually labeled CLEAR or RESET. When this key is 
pressed, the screen is cleared of characters and the cursor moves to 
the upper left-hand side of the screen, which is called the home 
position. 

Quite often the special keys like the CLEAR key affect only the 
screen and not the computer's memory. If you have an MBASIC pro- 
gram displayed on the screen and you press CLEAR, the screen goes 
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blank. This does not mean that your program is lost. The program 
remains in the computer's memory even though it is no longer dis- 
played. Similarly, each time you type lines to the computer, the other 
lines scroll up the screen. The lines that are pushed up off the screen 
are still remembered. 

THE COMPUTER'S INTERNAL MEMORY 

When you write a program in MBASIC, you press RETURN when 
you have completed each line. This action causes the line you just 
typed to be entered and stored in the computer's memory. Most cur- 
rent microcomputers that use CP/M come with sufficient memory to 
store about 64 thousand characters (that is, letters, digits, and so on). 
Part of this memory is used by CP/M and part by MBASIC. The 
portion of memory remaining for your program is thus less than 
64,000 characters. 

DISK MEMORY 

The computer's memory is only capable of holding information 
when it is turned on. In order for you to retain your programs from 
one programming session to the next, you must have a means of stor- 
ing your programs when the computer is turned off The most com- 
mon device used with microcomputers is the floppy disk. A single 
floppy disk can hold anywhere from 70K bytes or characters (IK = 
1 thousand) to 1.2MB (1MB = 1 Megabyte = 1 million bytes), depend- 
ing on the disk's density, size, and configuration. The information is 
stored in the files we saw before. 

USING THE PRINTER 

You may also wish to use your printer to keep copies of your pro- 
grams on paper. A program listing on paper is called a hard copy. A 
hard copy is an excellent way to store your programs in a format that 
you can read. 

Syntax Error 

If you make a mistake while you are programming in MBASIC, 
you may get a "Syntax error" message on your screen. Don't panic! 
Syntax is the exact manner in which the symbols (letters, numbers, 
and punctuation) in a BASIC language statement or command must 
be ordered. Thus, a syntax error simply means a wrong ordering of 
symbols. 
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When you get a "Syntax error" message, look for misspelled com- 
mand words, check the number, type, and order of any parameters in 
the statement, and make sure you have not omitted anything. These 
are the most common mistakes. Then either retype or edit the offend- 
ing line until the syntax is correct. 

Interpreters and Compilers 

The following section is essentially background information on 
programming languages. You do not need to read it in order to be 
able to write an MBASIC program, and you may simply go on to the 
next chapter at this point if you wish. 

We have already mentioned that Microsoft BASIC (MBASIC) is a 
computer language, but it is also a computer program. Computers 
read languages in two different ways: through an interpreter or 
through a compiler. Both interpreters and compilers are programs 
that read a program as input and turn it into instructions which a 
computer can execute directly. Interpreters and compilers are in a 
sense translators that translate from a given language (like MBASIC) 
into machine language, a language that the computer can execute 
directly. 

A compiler reads the whole program and builds a complete set of 
instructions for the entire program before any statements are exe- 
cuted. An interpreter reads each program statement and executes it 
before reading the next statement. While Microsoft sells both an 
interpreter and a compiler for the MBASIC language, this book deals 
exclusively with the use of the interpreter. Using the interpreter is 
the best way to learn any computer language. A compiler, however, 
can make more efficient use of your computer's time and memory. 
Therefore, after you become an expert MBASIC programmer, you 
may wish to use the compiler instead of the interpreter. 

Writing and running a program using a compiler is a three-step 
process. First you must write the source program. This requires an 
additional program, usually called a text editor, which allows you to 
type your program into the computer's memory. Next you instruct the 
compiler to compile your program. The compiler generates an object 
program and lists any errors in your source program. If there are 
errors, you must then edit the program again to make corrections. 
Finally, if there are no compile errors, you may instruct the computer 
to execute the object program, since the object program is now in a 
machine-readable language. 
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Writing a program with an interpreter, on the other hand, is 
much simpler. The interpreter allows you to enter and try your pro- 
gram with the interpreter's editor. Errors in your source program 
are detected when the program runs. The MBASIC interpreter 
includes a simple text editor so that you can correct errors imme- 
diately and run your program again as soon as you have finished cor- 
recting it, with no intermediate compile step. 

The process of detecting and correcting errors in your program is 
called debugging. Since debugging is made much easier with an 
interpreter, you may wish to write your programs with the MBASIC 
interpreter. 

If you own the MBASIC compiler, you can compile programs so 
that they can run faster after you and the interpreter are satisfied 
that they are written correctly. If you choose to use the Microsoft 
interpreter and compiler, you must take note that there are slight 
differences between the two. These differences are listed in the 
Microsoft BASIC compiler manual. 




Commands: RUN, LIST, NEW 
Statements: LET, PRINT, INPUT, END 
Operators: +, — /, *, A 



Learning to write a BASIC program is like learning to ride a 
bicycle: the only way to learn is by doing. And once you learn it, you 
will remember it. As you go through this book, each chapter will 
introduce and explain a group of instructions or keywords. For each 
instruction an example or group of examples will be presented to 
show you how to use the keyword appropriately in a simple program. 

After all the instructions have been introduced, applications will 
be presented. These are programs of a more practical nature. In 
these programs, groups of instructions (commands, statements, oper- 
ators, or functions) will be combined to solve a problem. 

We will return to one of these application programs, the PAY- 
ROLL program, again and again. The PAYROLL program handles 
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the payroll records for a small company. If this application is rele- 
vant to you, the programming skills you gain in this tutorial should 
allow you to modify our final version, presented in Chapter 19, to 
your specific requirements. 

Be sure you understand the examples and applications, but also do 
the exercises at the end of each chapter. These will give you practice 
in using the skill you are learning, and so your skills will improve 
more rapidly. 

In Chapter 1, we discussed some of the vocabulary of MBASIC 
and the syntax for writing an instruction for MBASIC. You also saw 
how MBASIC operates in direct mode. Now you will write your first 
program. 

Creating a Simple Program 

[PRINT, RUN] 

You will use one statement and one command almost every time 
you write a program. The statement is PRINT and the command is 
RUN. 

Every useful program has some type of output. Output refers to 
the words or results of calculations that your program creates. In 
most cases, the output is sent to the screen or the printer. Thus, in a 
typical program you will use some form of output statement, like 
PRINT, a great many times. 

Enter the following line into the computer and press RETURN: 

10 PRINT "YESTERDAY I DIDN'T KNOW WHAT A PROGRAM WAS." 

Note that all program lines must be entered exactly as shown if 
the program results are to match the illustrations in this book. The 
computer can be very unforgiving about small discrepancies in spac- 
ing or punctuation. 

Let's take a look at this simple program. First, notice that every 
line you enter starts with a number. A line number may be any whole 
number from to 65529. A reasonably good plan is to start with the 
number 10 and number the lines consecutively in multiples of ten 
(10, 20, 30...). Second, notice that immediately following the line 
number, you write the BASIC instruction: in this case, PRINT. 
When you finish typing in the line, press RETURN. Pressing RETURN 
stores the line in the computer's memory, where it is ready for execu- 
tion when the program is run. 
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RUNNING A PROGRAM 
WITH THE RUN COMMAND 

To run this program, we need another command, RUN. Type 
RUN, press RETURN, and you will have the following output: 

YESTERDAY I DIDN'T KNOW WHAT A PROGRAM HAS. 

Ok 

The Ok following the output from your program means that 
MBASIC is ready to receive additional statements or commands. The 
shaded type is what you enter. Let's add a second line to our program. 
Type in the following: 

20 PRINT " TODAY I'M A PROGRAMMER." 



Displaying Your Program 

[LIST] 

Let's consider another command. Enter the LIST command and 
press the RETURN key. Your program will be reprinted on the screen 
with the lines in correct numerical order. 

LIST 

10 PRINT "YESTERDAY I DIDN'T KNOW WHAT A PROGRAM HAS." 

20 PRINT " TODAY I'M A PROGRAMMER. " 

Ok 

Lines are always stored in numerical order in the computer's 
memory. Therefore, LIST always shows the program with the lines 
in numerical order, regardless of the order in which you entered 
them or what you did in between. 

The information enclosed in double quotation marks is called a 
string constant. In line 20 of the example above, " TODAY I'M A 
PROGRAMMER" is the string constant. A string constant will 
print out exactly as it appears in your program and may contain let- 
ters, numbers, or any other valid characters. 

Now run the program and let's consider the output. Type RUN 
and press RETURN. 
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RUN 

YESTERDAY I DIDN'T KNOW WHAT A PROGRAM HAS. 
TODAY I'M A PROGRAMMER. 

Ok 

Notice that in the program listed above, line 20 contains a space 
between the first quotation marks and TODAY. When you run the 
program, the output retains this space. 

START AT LINE NUMBER AND BEGIN EXECUTION 

You may also specify a line number with the RUN command. This 
is useful at times with longer programs when you are only interested 
in the output from a particular section of a program, but let's try it 
here: 

RUN 20 

TODAY I'M A PROGRAMMER. 
Ok 

Replacing a Line 

We now want to make a change in line 10. There is no way to alter 
anything in a line once you have pressed RETURN— unless you use 
edit mode, which would require considerable explanation and is 
covered in Chapter 5. But if you simply start a new line by entering 
10, the entire previous contents of line 10 will have disappeared. Try 
it now by entering 10 and then using the LIST command: 

10 

LIST 

20 PRINT " TODAY I'M A PROGRAMMER.' 

Ok 

But we want not only to delete line 10, but also to change it. One way 
to make a change in a program is to simply reenter one or more lines 
with changes in the text. Type in line 10 again, and this time end the 
line with a semicolon. 

10 PRINT "YESTERDAY I DIDN'T KNOW WHAT A PROGRAM WAS. ■; 

To see what has happened, type LIST and press RETURN. Notice 
that the old line 10 has been replaced with the new line 10. 
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LIST 

10 PRINT "YESTERDAY I DIDN'T KNOW WHAT A PROGRAM HAS.*; 

20 PRINT " TODAY I'M A PROGRAMMER. 1 

Ok 

Run the program and notice the difference in the output. 
RUN 

YESTERDAY I DIDN'T KNOW WHAT A PROGRAM WAS. TODAY I'M A PROGRAMMER. 
Ok 

Placing the semicolon at the end of line 10 makes the output from 
lines 10 and 20 continuous. Line 20 will be on the same line as the 
output from line 10. 

The PRINT statement is very versatile. We will expand on its uses 
in later chapters. 

Clearing Memory 

[NEW] 

When you have finished working with a program and wish to 
begin work on another one, give the NEW command. This command 
erases your program from memory and clears all the variables that 
you may have created (variables are discussed later in this chapter). 
You are now ready to enter a new program. In this program, we will 
tell the computer to add two numbers and then to multiply two 
numbers. 

Enter and run the following example: 

10 PRINT "The sum of 4 + 3 is ";4+3 
20 PRINT "The product of 4 x 3 is";4*3 

am 

The sui of 4 ♦ 3 is 7 
The product of 4 x 3 is 12 
0k 

In this example we used lowercase letters in the string constants. 
Also notice that the arithmetic operation is printed out on the screen 
just as it appears within the quotation marks. But the output from 
the arithmetic operation at the end of each line returns the results of 
4+3 and 4*3. Notice also that in order to multiply in BASIC, the 
symbol used is the asterisk (*), not the times sign (X). 
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Adding a Line 

Let's add a line to this program to find the difference between 4 
and 3, and then make the computer print out the result. Enter the 
following: 

15 PRINT "The difference of 4 - 3 is";4-3 
LIST 

10 PRINT "The sub of 4 + 3 is 4+3 
15 PRINT "The difference of 4 - 3 is";4-3 
20 PRINT "The product of 4 x 3 is"; 4*3 
Ok 

Now is a good time to LIST our program and see what the computer 
has done with line 15. 

Line 15 was automatically inserted between lines 10 and 20. This 
is the reason that we often enter program line numbers in multiples 
of 10, so that if we wish to add lines at some later time, we can do so 
without retyping several lines. You can, of course, use any other mul- 
tiples you like, such as 50, 100, and so on. 

You can specify a line number range in the LIST command, much 
as you can in the RUN command. Try these examples: 

LIST 15 

15 PRINT "The difference of 4 and 3 is ";4-3 
0k 

Here we have asked MBASIC to list just one line, line 15. Now let's 
ask MBASIC to list all the lines from 10 to 15 inclusive: 

LIST 10-15 

10 PRINT "The sum of 4 + 3 is \4*3 

15 PRINT "The difference of 4 - 3 is":4-3 

0k 

There are no lines between 10 and 15, so all we get is these two. 
Finally, let's list all the lines from line 15 to the end of the program: 

LIST 15- 

15 PRINT "The difference of 4 and 3 is ";4-3 
20 PRINT "The product of 4 times 3 is ";4*3 
Ok 

Ending Your Program 

[END] 

Although a program will end when there are no more statements 
to process, it is a good idea to use the END statement. It not only 
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returns you to the direct mode, but also closes any files that you 
might have used in the program. You will be working with files in 
later chapters. Add an END statement at line 30 as follows: 

30 END 

It is a good idea to LIST and check your program after making 
changes and before running it. Your program listing should look like 
this: 

LIST 

10 PRINT "The sum of 4 and 3 is";4+3 

15 PRINT "The difference of 4 and 3 is";4-3 

20 PRINT "The product of 4 times 3 is"; 4*3 

30 END 

0k 

The END statement is not always on the last line of the program. If 
an END statement is encountered in the middle of the program, the 
program stops executing right then. 

Storing Data in a Variable 

Before we begin entering data into the computer, you must first 
know how to store the input data in a variable. A variable is a place to 
store information in the computer's memory. Variables can be used to 
store numeric data or string data, which we described in Chapter 1. 
In Microsoft BASIC, a variable name may be of any length, but only 
the first 40 characters are significant. The restrictions in choosing 
your variable name are that the first character must be a letter; after 
that, any letter or number may follow. Also the period (.) may be used 
to make your variable names read more clearly. The period is the 
only punctuation mark that may be used in a variable name. 

A variable name may not be identical to a keyword, although key- 
words may form a part of a variable name. Keywords include all 
those words that are used as commands, statements, functions, and 
operators. In addition, a variable may not start with the letters FN, 
which indicate that something is a function. The use of FN will be 
discussed in Chapter 16. 

Note that these naming conventions apply to both numeric and 
string variables. One additional feature of string variable names, 
however, is that they must be followed by a dollar sign ($). When used 
at the end of a variable name, the dollar sign is sometimes called a 
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type declarator because it tells MBASIC that the variable holds a 
string. 

Figure 2-1 shows some examples of legal and illegal variable 
names, both numeric and string. 



The INPUT statement allows you to enter data into a program 
during execution. Let's try it with this example, but do not forget to 
clear the computer's memory with the NEW command first: 

10 PRINT "Hi! What's your name"; 
20 INPUT USERNAMEt 

30 PRINT "Glad to know you, ";USERNAME$ 
40 END 

Now run the program. 



Hi! What's your name? 

The USERNAME$ at the end of line 20 is a string variable. 
When a program encounters an INPUT statement, it stops and waits 
for you to supply some input. We might respond by typing WALT and 
pressing RETURN. Our input is then stored in the variable, USER- 
NAME $. After entering WALT and pressing RETURN the program 



Interacting with the Computer 

[INPUT] 



RIM 



Legal names: 



A 
Al 

LAST.NAME$ 
XYZ 



A$ 

PEOPLE.WITH.l.CAR 

THE. LIST 

A3210 



Illegal names: 



Reason: 

Keyword 
Keyword 



LIST 
LISTf 
FNXY 
1A 



Begins with "FN" 
Begins with a number 







Figure 2-1. 

Legal and illegal variable names 
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continues to line 30. This is what the whole dialogue looks like: 

Hi! What s your name? WALT 
Glad to know you, WALT 
Ok 

Note that there is no question mark at the end of the prompt string in 
line 10. The INPUT statement in line 20 provides the question mark 
automatically, so it is unnecessary for you to type it. 

Now replace line 20 and add lines 30, 40, and 50, as they appear 
in the following program sample. List your program to see that it 
matches exactly the listing shown. 

10 INPUT "Hi! What's your name";USERNAME$ 

20 PRINT "Glad to know you ";USERNANE*;\ how old are you"; 

30 INPUT AGE 

40 PRINT AGE;"! I wouldn't have taken you for a day over*;AGE-l 
50 END 

Before you run the program, let's look at it more closely. In line 10 
the INPUT statement has a string and a semicolon preceding the 
variable USERNAME$. This is an abbreviated way of getting 
BASIC to print a prompt and a question mark before waiting for 
your input. Line 10 here does the same thing that lines 10 and 20 do in 
the previous version of this program, combining the old lines 10 and 
20 into one line. Also, pay particular attention to the expression at the 
end of line 40 (AGE— 1). Now run the program: 

RUN 

Hi! What's your naae? 

Again you enter your name or a fictitious name and press RETURN. 

Here is what happens: 

RUN 

Hi! What's your name? WALT 

Glad to know you WALT, how old are you? 

Once again the cursor prompts you to enter data. You can, of course, 
enter any kind of data, but we'll assume you want to be polite to the 
computer and enter your true age. After you press RETURN, the fol- 
lowing appears: 

RUN 

Hi! What's your nane? HALT 
Glad to know you HALT, how old are you? 40 
40 ! I wouldn't have taken you for a day over 39 
0k 
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Run the program again and this time, in response to the question on 
age, type in the word for your age instead of the number. 

RUN 

Hi! What's your naae? HALT 

Glad to know you HALT, how old are you? Forty 

TRedo from start 



This message indicates that you have entered the wrong variable 
type. Because the variable AGE does not end with a $, the program 
expects a numeric response to the prompt, whereas you entered a 
string. The program has ignored the Forty and is still waiting for a 
response of the correct type, which is in this case a number. Now 
enter your age as a number. The program will proceed as before. 

RUN 

Hi! What's your naae? WALT 

Glad to know you WALT, how old are you? Forty 

?Redo fro« start 

? 40 

40 ! I wouldn't have taken you for a day over 39 
Ok 

Try one other change with this program. See if you can change 
line 40 so that when the program runs, the output will show a period 
at the end of the line. (See line 20 for a clue.) 

Now let's try INPUT with more than one variable. Clear the 
memory with the NEW command and enter the following: 

10 INPUT "Enter your first name, last name, and age ";FIRST$,LAST$,AG£ 
20 PRINT FIRSTS, LASTS, AGE 

In this case we have three variables in the INPUT statement. 
When the program pauses for you to enter data, you must enter the 
same number of data items as there are variables. Data items may be 
either numeric or string and, of course, must agree with the variable 
type. All data items must be separated by commas when entered. If 
too many data items are entered, or too few, or the wrong type, you 
will again receive the message "?Redo from start". 
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Run the program. 
RUN 

Enter your first name, last name, and age ? FRE0,SUJGG,77 
FRED SLUCG 77 

Retype line 10 and add a colon after age. Now change the semi- 
colon after the second quote to a comma. 

10 INPUT "Enter your first name, last name, and age: ",FIRST$,LAST$,AGE 
20 PRINT FIRST$,LAST$, AGE 

Now run the program and notice the difference: 

RUN 

Enter your first name, last name, and age: FRED,SLUGG,77 
FRED SLUGG 77 

Using a comma instead of a semicolon after the prompt string 
suppresses the question mark. If you use the comma in this way, you 
will usually want to include some kind of punctuation inside the 
prompt string. This is why we inserted the colon. 

Alternatively, you can place a semicolon after the word INPUT. If 
you do this, the cursor will stay on the same line after you finish 
entering data and will continue to print on that line. 

To see how this works, give the NEW command and enter the 
following program. Notice the comma instead of a semicolon after 
the prompt string in lines 20 and 30. 

10 PRINT "Enter two numbers each followed by RETURN* 
20 INPUT ; "First number: \A 
30 INPUT ;" + ",B 
40 PRINT " =";A+B 

Enter the boldface information below, and be sure to press RETURN 
after each entry. 

RW 

Enter two numbers each followed by RETURN 
First number: 34 

After you enter return, the program now prompts you to enter the 
second value: 

First number: 34 + 12 

The program then prints out the sum: 

First number: 34 + 12 = 46 
0k 
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Assigning Values to a Variable 

[LET] 

LET is the assignment statement of MBASIC. Using LET, you can 
"assign" the value of an expression to a variable. The expression may 
be something as simple as the number 5, or it may be a complicated 
algebraic expression. 

After clearing the memory with the NEW command, enter and 
run the following: 

10 LET A=3 
20 LET B=6 
30 PRINT A;B;A+B 

RUN 

3 6 9 
Ok 

We will now add a few more lines to the preceding program: 

40 LET A=A*B 
50 PRINT A 

When we now enter the RUN command, we obtain the results of the 
entire program: 

RUN 

3 6 9 
18 
Ok 

Now let's go over the entire program. In lines 10 and 20 the sim- 
ple expressions 3 and 6 are assigned to the variables A and B respec- 
tively. Notice that in line 40, the variable A is assigned a new value. 
The new value of A is the product of the value previously assigned to 
A and the variable B. There is no limit to the number of times you 
can change the value in a variable. 

You might think that variable B was somehow "lost" when we 
multiplied A times B, but this is not the case. In fact, B is still very 
much intact. We can see this by writing still another line and once 
again running the program: 



60 PRINT B 
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RUN 

3 6 9 
18 

6 
Ok 

At this point we can list the whole program: 



LIST 

10 LET A=3 
20 LET B=6 
30 PRINT A;B;A*B 
40 LET A=A*B 
50 PRINT A 
60 PRINT B 
0k 



Clear the previous program and variables with the NEW com- 
mand, and enter and run the following program: 

10 BASEM 
20 HEIGHTS 

30 PRINT ■AR£A=";l/2*BASE*l€iGHT; ,, sq. in." 



RUN 

AREA= 12 sq. in. 
Ok 



In this example we use the words BASE and HEIGHT to name 
the variables instead of using simple letters as in the last example. 
Note also that the word LET has been omitted. LET is optional. If 
you leave it out, MBASIC will simply assume it is there. 

If you use the value .5 in line 30 instead of 1/2, BASIC would 
process the program just the same. Try it by rewriting line 30. 

For the next example, let's try something a little more practical. 
Suppose you buy a car and obtain a loan for $8500, with a simple 
interest rate of 17%. How much of your first month's payment will be 
interest? The formula for simple interest is 



Interest = Principal X Rate X Time (in years) 



Note that in line 30, we use T=l/12 to represent one month. Enter 



28 The MBASIC Handbook 



and run the following program: 

10 P=8500 

20 R=.17 

30 T=l/12 

40 INTEREST=P*R*T 

50 PRINT "Interest for first Bonth will be"; INTEREST; "dollars." 



RUN 

Interest for first month will be 120.417 dollars. 
0k 



ASSIGNING STRINGS WITH LET 

The LET statement may be used with both numeric and string 
variables. As an example of assigning strings to a variable, enter and 
run the following: 

10 A$=" HOW" 

20 B$=" NOW" 

30 C$=" BROWN" 

40 D$=" COW" 

50 PRINT A$;B$;Ct;D$ 

60 PRINT C*;D*;8$;A$ 

70 PRINT A$,C$,D$,A* 



RUN 

HOW NOW BROUN COH 
BROWN COW NOW HOW 

HOW BROWN COW HOW 

0k 



Notice that the printed values of the variables in line 70 are 
spaced farther apart than the other lines. This is because commas 
were used as separators instead of semicolons. Using the comma with 
the PRINT statement automatically starts the second variable in 
column 15 on the display. The third variable starts in column 30 and 
the fourth in column 45. Spacing is done automatically by MBASIC. 

The order in which you have the string variables printed makes 
no difference. You may use them any number of times and, just as 
with numeric variables, you may reassign them within the same 
program. 



First Program 29 



Working With Arithmetic Operators 

[ +. /> *> A ) 

Up to this point, you have used four of the five arithmetic opera- 
tors: addition, subtraction, multiplication, and division. The last 
arithmetic operator that you will be using is exponentiation (raising 
to a power). Consider the following problem. A baseball diamond is a 
square. The distance between each of the successive bases is 90 feet. 
What is the area of a baseball diamond? The formula to find the area 
of a square is A=S 2 . (This means A equals S squared; S is a side and 
A is the area.) 

The equation A=S 2 raises S to the second power. But MBASIC 
does not allow you to use superscripts. Therefore, to raise a number to 
a power in MBASIC, you must use the caret symbol ( A ). Placing a A 
between S and the exponent 2 (A=S A 2) in MBASIC raises the vari- 
able S to the power of 2. Look for this symbol on your keyboard. It is 
often placed above the 6 key. If it is, in order to use it you must first 
hold down the SHIFT key and then press the 6 key at the same time. 
On other keyboards, the caret symbol may be above the N key or 
somewhere else. After you find it, try using it by entering this 
program: 



10 SIDE=90 
20 A=SIDP2 

30 PRINT "The area of the baseball diamond is";A;" sq. ft. 



The area of the baseball diamond is 8100 sq. ft. 
0k 



ORDER OF OPERATIONS 

Before you can use the arithmetic operators in any type of compli- 
cated mathematical expression, you need to know their order of 
precedence. Order of precedence means the order in which the arith- 
metic operations take place. Table 2-1 shows this order. 

If you use more than one operator in an expression, MBASIC will 
evaluate the one highest in the list first. If two operators have the 
same order, they are evaluated from left to right. Multiplication and 
division are of the same order; they are processed as they are encoun- 
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tered from left to right. The same rule applies to addition and sub- 
traction. Consider the following examples: 

NB 

10 A=3+8/2 
20 PRINT A 

7 
Ok 

The computer first evaluates 8/2 because division (/) is a higher 
order than addition (+). Of course, 8 divided by 2 is 4. The computer 
then adds 3 to the 4 to obtain the final result, 7. 

JO A--8/4.3 
20 PRINT A 
RUN 

6 

Ok 

Division and multiplication occur in order from left to right. 

10 A=?/3+2*2 
20 PRINT A 
RUN 

7 

0k 

The 2 is squared first, then the division takes place, and finally the 
addition. 

10 A=2+3-4 



1 

0k 

Addition and subtraction occur in order from left to right. 



Table 2-1. 

Order of Precedence 



Operator 


Operation 


Order 


A 


Exponentiation 


Highest 


*,/ 


Multiplication, division 


Middle 


+, " 


Addition, subtraction 


Lowest 
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CHANGING THE ORDER OF OPERATION 
WITH PARENTHESES ( ) 

Parentheses override the order of precedence. Whatever operation 
occurs in parentheses is performed first. 



10 A=3*(4+2> 
20 PRINT A 
RUN 
18 
Ok 



Here addition comes first, then multiplication. There is implied 
multiplication as in algebra (that is, 3(4+2)= 18). In MBASIC, how- 
ever, the multiplication symbol (*) must always be present (that is, 
3*(4+2)=18). 

10 A=(6<-3>/< 1+2) 
20 PRINT A 
RUN 
3 

Ok 



First 6 + 3 is added, then 1 + 2, and finally the division takes place. 
When there is more than one set of parentheses, they are evaluated 
from left to right. 



10 A=(4-3)*7 
20 PRINT A 
RUN 
7 

0k 



Subtraction comes first and then multiplication. 



10 A=2*(l+6/2)'(2+l) 
20 PRINT A 
RUN 
128 
0k 



First 6/2 is evaluated, then added to 1. The result is 4. Next 2 + 1 is 
added, and the 4 is raised to the power of 3, giving 64. Finally, this is 
multiplied by 2 to give the result, 128. 

Now let's apply some of these ideas to a problem. This problem 
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determines your age in days. Clear memory with the NEW command 
and enter the following program: 

10 PRINT "Enter your birthday in the form MONTH, DAY, YEAR: "; 
20 INPUT ",H1,D1,Y1 

30 INPUT -What is the date today*;M2,02,Y2 
40 AGE.DAYS=hY2-Y1)*365 +<H2-M1.)*30 +D2-B1 
50 PRINT "Your age in days is approximately "j AGE. DAYS 

Notice that the variable M2 for the month is a numeric variable, 
not a string variable. Therefore, if you enter "October" instead of 10 
when you are prompted to supply the date, MBASIC will flash a mes- 
sage on the screen that reads "?Redo from start". You can enter a 
word only for a string variable. Of course, if the programmer had 
been more alert, you would have been told that the month needs to be 
entered numerically. 

Once you have entered the preceding program, list it and make 
sure everything is exactly as it should be. Then run it: 

■ 

Enter your birthday in the form MONTH, DAY, YEAR: 10,9, 32 

What is the date today?10, 16,82 

Your age in days is appproximately 1825? 

0k 

The purpose of the two quotation marks after INPUT in line 20 is 
to suppress the question mark normally associated with the INPUT 
statement. The double quotation marks allow a comma to be added 
before the first variable to suppress the question mark. In line 40 
notice that the difference of years is enclosed in parentheses. This 
makes the subtraction, Y2— Yl, take place before multiplication by 
365. 

This program, of course, only gives an approximation of your age 
in days, since not all months are exactly thirty days. In later chapters 
you will find out how you can easily change this program to calculate 
accurate results when working with calendar dates. You may wish to 
return to the problem at that time to make these additions. 
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TUTORIALS 



Tutorial 2-1: Sum and Average 

Find the sum and average of the following numbers: 7, 13, 4, and 9. 

In deciding how to set up a problem to be solved, we have to con- 
sider how the data is going to be entered, what to do with the data 
once it is in the computer, and finally how we are going to format the 
output. In this example we will use the assignment (LET) statement 
to enter the data. 

To find the sum, we just add the four numbers. To find the aver- 
age, we use the formula: the average equals the sum of a set of 
numbers divided by the number of numbers in the set. 

You always have to pay particular attention to the output. 
Remember that, in many cases, you will be writing the program not 
only for yourself but for someone else as well. This is why you should 
indicate with a comment what the numbers mean rather than just 
having them appear on the screen. In this case, we can use the 
PRINT statement with a string constant and a variable to label and 
print the results. 

Enter and run the following: 

10 LET A=7 
20 LET Mi 
30 LET CM 
40 LET 0=9 
50 SUM=A+B+OD 
60 AVERAG£=SUM/4 

70 PRINT "THE SUM OF";A;B;C;B;"IS";Sttt 
80 PRINT "AVERAGE-"; AVERAGE 
90 END 



RUN 

THE SUM Of 7 13 4 9 IS 33 

AVERAGE= 8.25 

0k 

Lines 10 through 60 are all assignment statements. In the first 
four statements the optional word LET has been used. In lines 50 and 
60 LET has been omitted. The output lines, 70 and 80, print a string 
constant describing the output of the results that were calculated in 
lines 50 and 60. 
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MULTIPLE STATEMENTS PER LINE (USING THE COLON) 

Now try this variation. All of your data could be entered on a 
single line. Instead of entering each data item on a separate line as 
was done in lines 10 through 40, you may enter the following as line 
10: 

10 A=7:B=13:C=4:D=9 

This illustrates your option of entering multiple statements on the 
same line as long as they are separated by colons. Enter line 10 as 
shown above. Our program now looks like this: 

LIST 

10 A=7:B=13:C=4:D=9 

20 LET 6=13 

30 LET C=4 

40 LET D=9 

50 SUfl=A+B+C+D 

60 AVERAGE=SUM/4 

70 PRINT *SW1= ";S«1 

30 PRINT "AVERAGE^"; AVERAGE 

90 END 

If you run the program, BASIC will process the program cor- 
rectly but lines 20, 30, and 40 will no longer be necessary. Let's elim- 
inate them from the program. 



ELIMINATING A LINE FROM A PROGRAM 

To eliminate a line, just type the line number and press RETURN. 
For the example above, type 20 RETURN, 30 RETURN, and 40 
RETURN. List the program and you will have the following: 



LIST 

10 A=7:B=13:C=4:D=9 

50 SUM=A+BK:+D 

60 AVERAGE=SUH/4 

70 PRINT "SW^SW 

80 PRINT "AVERAGE^ ; AVERAGE 

90 END 



Run the program and note that the output is the same as for the 
previous problem. 
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Now let's try another variation. Eliminate lines 10 and 60 by typ- 
ing 10 RETURN, 60 RETURN. Now re-enter lines 50 and 80 as follows: 

50 SUM=7+ 13+4+9 

80 PRINT "AVERAGE =";SUH/4 

List the program and you will have the following: 

50 SUH=7+13t4*9 
70 PRINT "SUH=";SUM 
80 PRINT *AVERAGE= , ;SUH/4 
90 END 

Run the program and you will get the same result again. Food for 
thought: How many ways can you write this program? 



Tutorial 2-2: Payroll 

The Martinez Widget Co. produces 300 widgets per day. The 
company has 3 employees: Fred, Susan, and Ted. Fred makes $4.78 
an hour, Susan makes $5.01 an hour, and Ted makes $7.43 an hour. 
Each employee works eight hours per day. What is the labor cost for 
each widget? 

To solve this problem on the computer, you will need the instruc- 
tions to MBASIC introduced in this chapter. But first read the prob- 
lem carefully to be sure you understand exactly what is wanted. 

The objective of the problem is to find out the labor cost for each 
widget. To determine this, we first need to know the total labor cost, 
which is the sum of the daily wages of the three employees. Fred 
earns $4.78 an hour; therefore, during an eight-hour day he earns 
($4.78 X 8) dollars. Susan's and Ted's daily wages can be figured in 
the same way. The total wages for the day are the sum of Fred, 
Susan, and Ted's daily wages. Now to get the labor cost per widget, 
we divide the total labor cost per day by the total number of widgets 
produced in one day. Enter the following: 

10 FW=4.78 

20 SW=5. 01 

30 TW=7.43 

40 NUM.WIDGETS=300 

50 TOTAL . WAGES=8* (FW+SW+TH) 
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(Tutorial 2-2: Continued) 

60 UNIT.COST=TOTAL.WAGES/NUM.WIDGETS 

70 PRINT "Total daily wages ="; TOTAL. WAGES 

80 PRINT 'Unit labor cost per widget=";UNIT.COST; "dollars." 

90 END 

RUN 

Total daily wages = 137.76 

Unit labor cost per widget= .4592 dollars. 

Ok 

Now let's take a look at the program and see what has been done 
and why. Line 70 prints the results that were calculated in line 50 
along with the string constant describing what the numbers stand 
for. Line 80 prints the results that were calculated in line 60. It is 
worthwhile to get in the habit of performing your calculations in an 
assignment statement as we did in line 60. The alternative is to do 
this in the PRINT statement. For example: 

70 PRINT "Total daily wages=";8*(Fm-SH+TW) 

At first glance this may appear to save time. But in most pro- 
grams you will want the output in more than one line. By using an 
assignment statement, the result may be printed any number of 
times without your having to retype the expression. 

We have only begun to explain the instructions and procedures 
presented in this chapter. They will be expanded on as you proceed 
through this book. 



EXERCISES 



1. Indicate which of the following are valid names for 
numeric variables. 

a. A c. NUMBER e. X213 g. X6B 

b. 1B% d. X f. ABC h. YES$ 

2. Indicate which type of constant each of the following 
variables represents. 

a. PHONE.NUM$ c. XYZ 

b. MILES d. AGE 
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3. Solve each of the following, using the direct mode. 



4. Write a program to determine the value of each of the 
following expressions. Use the LET statement to assign 
the values for A, B, and C, where A=2, B = 3, and C = 5. 



5. Rewrite Tutorial 2-1 using INPUT to enter variables 
A, B, C, and D instead of LET. 

6. Write a program to convert the following Fahrenheit 
temperatures to Celsius. Use INPUT to enter the fol- 
lowing data: 32, 68, 212, 98.6. (Hint: C = (5/9) X (F - 32)) 

7. Write a program to find the areas of the indicated fig- 
ures. Use the LET statement to assign the given values 
to the variables. In your output statements, use string 
constants to identify the results. 

a. triangle (A = l/2bh) c. circle( A = 3. 1416r A 2) 
b=8, h = ll r=3 

6. (A=S A 2) d. trapezoid 



a. 5X6-4 

b. 5X6-3 

c. 5X(6-3) 



d. 12-4X2 

e. (42-7)-(2+l) 
/ (96-2X30)-9 



a. X = A + 2B-C 

b. X=(A-B)C 



c. X = BC/A(A + B) 

d. X=(A + B)/(C-A) 



s=6 



(A=l/2(bl + b2)h) 
bl=8, b2=6, h=4 



Assign all variables 
on the same line. 



8. Write a program that will print your name and ad- 
dress onto the screen. First display your name and ad- 
dress on a single line and then in address label format. 



Organizing Your 
Programs 



Commands: SAVE, FILES, LOAD, NAME, 
KILL, SYSTEM 

Statements: REM 



Not only does the computer read programs, but people also need 
to read them. To make the program more readable, it helps to 
include comments. 

Adding Comments to a Program 

[REM] 

A comment is a piece of text contained in your program that is 
ignored by MBASIC. Comments are put in programs solely for the 
benefit of people reading the program. If you save a program, you 
probably intend to work with it at some later time, and if you have 



39 



40 The MBASIC Handbook 



not included comments, you may no longer remember what the pro- 
gram was designed to do or how a particular part of the program 
works. 

The statement used to enter a comment is REM, which is short 
for "remark." Everything on a line following a REM statement is 
considered a comment and is ignored by the computer during execu- 
tion of the program. Its only purpose is to give the person reading the 
program some information. REM may be the only MBASIC state- 
ment on a line, or it can be appended to a line containing other 
statements. Enter the following program: 

50 LET FW = 4.78 

60 LET SM = 5.01 

70 LET TW = 7.43 

80 TOTAL. MAGES = 8*(FW*SW+TH) 

90 UNIT.C0ST = TOTAL. WAGES/300 

100 PRINT "Unit cost of widgets:°;UNIT.COST 

110 END 

This is similar to Tutorial 2-2, the payroll problem that you 
entered in Chapter 2. We will use it to illustrate the use of REM 
statements. Enter the following lines: 

10 REN - -=*PAYRGLL*=- 

20 REN - Determine labor cost per widget 

30 REM - 08/23/82 

40 REN 

Now give the LIST command to see your program: 



10 REN - -=*PAYR0LL*=- 

20 REM - Determine labor cost per widget 

30 REM - 08/23/82 

40 REN 

50 LET FW = 4.78 

60 LET SW = 5.01 

70 LET TW = 7.43 

80 TOTAL. WAGES = 3*(FW+SW+TH) 

90 UNIT.C0ST = TOTAL. WAGES/300 

100 PRINT "Unit cost of widgets: ";UNIT.C0ST 

110 END 



It is a common practice to place a heading at the beginning of 
your programs using REM statements. The heading we have used here 
consists of the name of the program, a brief description of the pro- 
gram, and the date it was written, but, of course, you can put what- 



Organizing Your Programs 41 



ever information you wish into REM statements. Other heading 
information might consist of the programmer's initials or dates for 
each time the program was modified, along with a description of 
what was changed. Notice that line 40 is blank. A blank comment 
line is probably the most commonly used comment line. It is used to 
improve readability by separating portions of the program, like the 
heading and the main body. 

The REM statement may also be abbreviated with a single quota- 
tion mark ('). This abbreviation is most useful when remark state- 
ments are appended to the end of a line. 

Reenter lines 50 through 70 as shown in the following program 
segment. If you append remarks to a statement as shown here, you 
may not enter multiple statements on the line after the single quota- 
tion mark. Everything after a REM statement or single quotation 
mark is ignored when the program is executed. 

50 LET FH = 4.78 ' FH = Fred's pay rate 

60 LET SH = 5.01 ' SH = Susan's pay rate 

70 LET TH = 7.43 ' TH = Ted's pay rate 

Enter lines 75 and 85 as shown below and LIST the program: 

75 REM - Determine total wages 

85 REM - Determine unit cost of widgets 



LIST 

10 REM - -=*PAYRQLL*=- 

20 REM - Determine labor cost per widget 

30 REM - 08/23/82 

40 REM 

50 LET FH = 4.78 'FH = Fred's pay rate 

60 LET SH = 5.01 'SH = Susan's pay rate 

70 LET TH = 7.43 'TH = Ted's pay rate 

75 REM - Determine total wages 

80 TOTAL. HAGES = 8*(FH+SH*TH) 

85 REM - Determine unit cost of widgets 

90 UNIT.C0ST = TOTAL. HAGES/300 

100 PRINT "Unit cost of wid9ets:";UNIT.C0ST 

110 END 



Lines 75 and 85 show another common use of the REM statement. 
Each of these lines indicates what is happening on the following line. 

The listing above illustrates a fully annotated program with 
appropriate REM statements. The remark statements are always 
optional; after all if the computer could read your comments, you 
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would not have to write the program! Keep in mind that programs 
continuously change with their environment. You will generally be 
writing a program for yourself or someone else to use and modify. A 
program with plenty of appropriate remark statements is much eas- 
ier for you to read at a later date and also makes it easier for anyone 
else looking at your program to understand the logic involved. 



Setting Up a Data Disk 

In this and future chapters, you will be saving many of the pro- 
grams that you write. If you have a single-drive system, you will need 
to save your programs on the same disk with MBASIC and CP/M. If 
you have two or more drives, you may wish to save these programs on 
one of the other drives. Before storing programs on a disk, you must 
prepare the disk so that the operating system can read and write on 
it. This is called formatting. Formatting procedures vary from one 
computer system to another. Refer to your system manual in order to 
prepare the disk. 



Naming a Program 

Before you can save a program, you must decide on a name. Files 
under CP/M have a file name and extension. As many as eight char- 
acters may be used for the name. These eight characters may consist 
of any letter or number and many other symbols on your keyboard. 
However, you cannot use the symbols *, ?, or :. Following the name, a 
period and three characters for the optional extension may be added. 
If you do not supply an extension, MBASIC will assume the extension 
.BAS. 

The following are examples of acceptable program names: PAY- 
ROLL, CHAPTER1.WAE, SAMPLE.PRP. Be especially careful 
always to use capital letters when specifying a filename, since 
MBASIC uses the exact characters. If you save a file from MBASIC 
with a lowercase name, you will not be able to access it from CP/M 
because CP/M reads everything you type as uppercase. For example, 
if you save a program with the name lower.bas, you will not be able 
to use CP/M commands like ERA and TYPE on that file. 
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Displaying the Disk Directory 

[FILES] 

Any material that is saved on the disk is referred to as a file. A file 
can be something as complicated as the Microsoft BASIC interpreter 
or something as simple as the first program you save. 

In order to display files on your disk, use the FILES command. 
The FILES command is analogous to the DIR command of CP/M. 
FILES displays all the files that are on your logged-on drive. As 
mentioned in Chapter 1, the logged-on drive is given in the CP/M 
prompt just before loading MBASIC. For example, if your CP/M 
prompt is A>, your logged-on drive is A. 

Try listing the disk directory by typing the FILES command: 

FILES 

MBASIC .COM STAT .COM PIP .COM PAYROLL .BAS 
PR0B1 .BAS PR0B2 .BAS PR0B3 .BAS PR0B12 .BAS 
Ok 

This display illustrates what is on our disk. Yours will be different, of 
course. Note that the program you just saved, PAYROLL, has the 
extension .BAS, which was supplied by MBASIC. Notice that unlike 
the DIR command of CP/M, the FILES command does not show 
which drive the files are on. 

USING WILD CARDS WITH FILES 

With the FILES command, MBASIC uses the wild card charac- 
ters * and ? to display a group of files with similar names or prefixes. 
A ? will match any individual character in a file name, and the aster- 
isk (*) will match any string of characters, regardless of length in 
either the file name or the extension. For example, you can list all the 
".COM" files with the following command: 

FILES "*.C0M" 

This will result in 

MBASIC . COM STAT . COM PIP .COM 

The asterisk (*) matched a file name of any length while the .COM 
restricted the list to only those files with the extension .COM. The 
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information inside the double quotation marks is often called a tem- 
plate. Only those files which match the template are listed. 

Let's say you want to list all of the MBASIC programs that begin 
with the letters PROB and end with just one other letter. We can do 
this with the question mark wild card as follows: 

FILES •PR06''.EAS , 

PRGB1 . BAS PR0B2 . BAS PR0B3 ,BAS 
Ok 

In this case the question mark acts as a wild card for any character 
in the fifth position of the file name. Note that the program named 
PROB12.BAS is not displayed. Why not? 

DISPLAYING FILES ON OTHER DRIVES 

As you might have guessed, the FILES command without a file 
name specified is the same as FILES "*.*". In fact, the *.* is assumed 
by MBASIC if no file name is given. To display the files on drives 
other than the logged drive, you must indicate the disk. To do this, 
precede the file name with the name of the disk drive, that is, A or B 
and a colon. For example, to list all the files on the B drive, type 

FILES "B:*.«* 

Note that the meaning of the wild card characters ? and * is not quite 
consistent with CP/M commands. 



Saving a Program 

[SAVE] 

After choosing an appropriate name, use the SAVE command, 
with the file name enclosed in quotation marks to save your program. 
To save the current program with the name "PAYROLL", type the 
following: 

SAVE "PAYROLL" 

When you save a program, a copy of the program is saved on the 
disk, but the program also remains in memory. You can verify that 
the program is still in memory with the LIST command. 

Saving a program in the manner just demonstrated saves the pro- 
gram on the drive you are logged onto. You may also save your pro- 
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gram on any of your other drives. In order to save the program on the 
B drive, use SAVE "B:PAYROLL". The B: designates the B drive and 
must be included within the quotation marks. You may use any letter 
that corresponds to one of your drives. If no letter is used, then the 
SAVE command defaults to your logged-on drive. Be sure to use all 
uppercase letters in the file name. 

Loading a Program 

[LOAD] 

To transfer a program from the disk to memory, you use the 
LOAD command. When you use the LOAD command, the file name 
must be enclosed in double quotation marks. First type NEW to clear 
the computer's memory. Now type 

LOAD "PAYROLL" 

Now type LIST and your program will be displayed. Notice that 
you do not have to use the .BAS extension since it is supplied by 
MBASIC. However, if the program has any other extension, you must 
supply it in the file name. 

The RUN command may also be used to load a program. If you 
key in RUN "PAYROLL", then the RUN consists of two steps: load 
and execute. When you load the program with the command RUN, 
the program is transferred from the disk to the computer and execu- 
tion begins immediately. Try this out by clearing memory with the 
NEW command and using RUN to load and execute the PAYROLL 
program: 

RUN "PAYROLL* 

Unit cost of widgets: 4.82 
Ok 

Be sure to use all uppercase letters in the file name. 

Changing a File Name 

[NAME] 

In order to change the name of a file on the disk, use the NAME 
command. Try this with the program PAYROLL.BAS. Let's change 
the name PAYROLL to WIDGETS. To do this, enter the following: 

NAME "PAYROLL.BAS" AS "WIDGET. BAS" 
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Now display the disk directory with the command FILES and 
note that the name of the file has been changed, while the data in the 
file has not: 

FILES 

MBASIC .COM STAT .COM PIP .COM WIDGET .BAS 
PR0B1 .BAS PR0B2 .BAS PR0B3 .6AS PR0B12 .BAS 
Ok 

Note that with this command you must always supply the exten- 
sion (that is, .BAS). The NAME command does not have a default file 
name extension. 

Erasing a Disk File 

[KILL] 

You can erase a file from the disk by using the KILL command. 
To use this, type KILL and the full file name enclosed in quotation 
marks. As with the NAME command, MBASIC will not supply the 
extension .BAS with this command. 

To erase the WIDGET program, type 

KILL "WIDGET. BAS" 

Now when you list the disk directory, the file WIDGET.BAS will 
have disappeared. 

FILES 

MBASIC .COM STAT . COM PIP .COM PR0B1 .BAS; 

PR0B2 .BAS PR0B3 .BAS PR0B12 . BAS 

Ok 

Notice that the WIDGET program was erased only from the disk and 
still remains in the computer's memory. List your program to be 
sure. 

As a safety precaution, the KILL command only works when the 
full file name is supplied. You cannot use the wild cards * and ? as 
you can with the FILE command. If you use the KILL command 
without a file name, you will receive the message "Missing operand". 

Returning to CP/M 

[SYSTEM] 

In order to return to CP/M from MBASIC, use the SYSTEM 
command. 

SYSTEM 
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The SYSTEM command exits from MBASIC and any program 
stored in the computer's memory. The A> or B> prompt appears to 
indicate that you are now back in CP/M. 

While you are programming, you will often find it necessary to 
transfer between MBASIC and CP/M. When you do move between 
MBASIC and CP/M, be sure to save your program before you use the 
SYSTEM command. Otherwise, when you return to MBASIC from 
CP/M, MBASIC will not be aware of any program you previously had 
in memory. 



1. Rewrite your program from question 7 in Chapter 2 
(areas of geometric figures) to include comments. Use 
both full-line comments and comments at the ends of state- 
ments. 

2. Which of the following program names are illegal? 



3. What command would you use to display 

a. All the files with ".DAT" as an extension? 

b. Only files whose file names are two characters long? 

c. Only files whose file names have "A" as the third 



4. Identify the commands that would be used in the follow- 
ing sequence. "After I finished my program, I stored it 
to disk with the filename HAPPY. I cleared memory, 
but then decided I wanted to run the program again, so 
I retrieved the program. After running the program, I 
didn't like the name HAPPY, so I changed it to 
STUPID, then realized that I didn't like the program at 
all, so I erased it from disk and exited to CP/M." 



EXERCISES 



Why? 

a. FRIZ8000 

b. 1LINEPROG 



c. QUEST? 

d. LOW_BAR 



letter? 



Making Decisions 



Commands: READ, DATA, GOTO, 
IF/THEN, RESTORE, 
IF/THEN/ELSE 

Operators: >, <, <>,>=,<=, AND, OR 



This chapter describes the methods you use to make choices in 
your MBASIC programs. First, however, we will show how you can 
use commands other than INPUT to get data. 

Reading in Data 

[READ, DATA] 

An alternative to the INPUT statement for entering data into a 
computer progam is the READ and DATA statements. When MBASIC 
gets to a READ statement, it immediately looks for the first DATA 
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statement in the program. The values in the DATA statement are 
then assigned to the variables in the order encountered. 
Enter and run the following: 

10 READ A,B,C,D 

20 ANS = A+B+C+D 

30 PRINT "A+B+C+D = ";AHS 

40 DATA 17,13,3,27 



RUN 

A+B+OD = «0 
Ok 

When MBASIC encounters the READ statement in line 10, it 
immediately looks through the program to find the first DATA 
statement. Since there are four variables in the READ statement in 
line 10, it reads the four data items in line 40. If there were more 
than four data items, it would read only the first four. 

In line 20 the sum of the four numbers is determined and stored 
in the variable ANS. The PRINT statement in line 30 prints the 
string constant "A+B+C+D = " and the value stored in the variable 
ANS. It makes no difference where the data statement is located in 
the program, but it is usually appropriate to put it near the begin- 
ning or the end of the program for easy reference. 

Another way of writing the previous program is to place the data 
on separate lines, as shown here: 

10 READ A,B,C,D 

20 ANS = A+B+C+D 

30 PRINT "A+B+C+B=\ANS 

40 DATA 17 

50 DATA 13 

60 DATA 3 

70 DATA 27 

This program runs exactly like the last example. How you group 
data in DATA statements is up to you; it should simply be in a format 
you will understand when you read the program. 

If there are fewer data items than the number of variables in the 
READ statement, you will get the error message on the screen: "Out 
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of DATA in 10". Try running the previous example with one data 
item removed: 



10 READ A,B,C,D 

20 ANS = A+BtC+D 

30 PRINT "A+B+C+D =";ANS 

40 DATA 17,13,3 



RUN 

Out of DATA in 10 

The READ and DATA statements can also be used with strings. 
Enter and run the following: 

10 READ A*,B$,C$,D* 

20 PRINT "Meet the Flintstones" 

30 PRINT A$,B*,C$,D$ 

40 END 

50 DATA "Fred", "WilmaVBarny", "Betty" 



RUN 

Meet the Flintstones 

Fred Wilma Barny Betty 

0k 



It was mentioned earlier that data may be separated into several 
DATA statements or combined into one statement. This is also true 
for the READ statements, as illustrated here: 



10 READ A*,B$ 
20 READ Ct,Bt 

30 PRINT "Meet the Flintstones' 
40 PRINT A*,B$,C$,D$ 
50 END 

40 DATA "Fred'.-HilBa'/'BarnyVBettr" 



Running this program will produce the same output as the pre- 
vious example. It makes no difference how many READ statements 
you have as long as there is sufficient data for each variable. The 
main consideration is the logical association of variables and data. 
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Branching 

[GOTO] 

Normally MBASIC proceeds through a program's lines in numer- 
ical order. But there are times when you want to change this normal 
flow. This is called branching. There are two types of branching: con- 
ditional and unconditional. 

MBASIC has several statements that allow you to change the flow 
of a program. GOTO is an unconditional branching statement. When 
MBASIC reaches the line number with a GOTO statement, it trans- 
fers directly to the line number GOTO indicates. Conditional branch- 
ing, on the other hand, causes program flow to change only when a 
specific condition fs met. Examples of this type of branching will be 
given a little later in this chapter. 

A simple example of unconditional branching is 

10 PRINT "One" 
20 GOTO 40 
30 PRINT "Two" 
40 PRINT Three" 

Rill 
One 
Three 
0k 

Notice how the GOTO in line 20 prevented MBASIC from running 
the PRINT statement in line 30. 

STOPPING AN ENDLESS LOOP 

One of the errors that every programmer faces sooner or later 
when working with the GOTO statement is writing a program that 
repeats itself continuously. This is referred to as an endless loop. Let's 
consider an example of this now so that if it happens to you acciden- 
tally, you will know how to break the loop. Enter the following: 

10 PRINT "Hiccup!" 
20 GOTO 10 

First, line 10 prints "Hiccup!", then MBASIC advances to line 20. 
Line 20 has a GOTO statement which sends it back to line 10. 
MBASIC executes line 10 again, and the process is repeated continu- 
ously. This program is an endless loop. To stop the loop, you need to 
press the CTRL and C keys simultaneously. MBASIC provides this as a 
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way to interrupt a program. Typing CTRL-C stops the program execu- 
tion and returns you to MBASIC command mode. 

Now try this by running the program, and as soon as you have 
seen the message a sufficient number of times, pressing CTRL-C. The 
program will stop and you will see the message on the screen "Break 
in line 10", or "Break in line 20", depending on when you type the 
CTRL-C. Some versions of MBASIC simply say "Break in 10" instead 
of "Break in line 10". 

RUN 

Hiccup! 
Hiccup! 
Hiccup! 
Hiccup! 
Hiccup! 
*C 

Break in line 20 
0k 

As a second example of this type, enter the following: 

20 GOTO 10 

30 PRINT "The value of A is";A 
40 END 

In this example nothing is printed on the screen because the endless 
loop involves a section of the program without a PRINT statement. 
When this happens, the first thought of the new programmer might 
be that something is wrong with the computer because the PRINT 
statement is not executed. The solution, of course, is the same as in 
the previous example: type CTRL-C and you will be returned to direct 
mode. If your program ever "locks up" in this way, remember to try 
typing CTRL-C before reaching for the power switch on your computer. 
This way your program will remain unchanged in memory. 

Conditional Branching 

[IF/THEN] 

Almost any time you want to solve a problem, there is a decision to 
be made. With MBASIC you can have the program make decisions. 
You can do this in several ways, but the most frequently used is the 
IF/THEN statement. The syntax of the IF/THEN statement is 

IF relation THEN action 
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where relation is a true-false relationship, and action is any valid 
MBASIC statement. Every IF statement must have a THEN clause 
on the same line, and you cannot use the THEN clause by itself. 

IF/THEN uses the relational operators to make comparisons, so 
we will consider the relational operators first. 

RELATIONAL OPERATORS 

[>. <, <>, <=, >=] 

The relational operators supported by MBASIC are shown in 
Table 4-1. They can be used to compare either numeric or string 
expressions. 

MBASIC always acts on the relational operators as it encounters 
them from left to right in a statement. Therefore, we do not have to 
consider order of precedence as we did with the arithmetic operators. 

Now let's try conditional branching with a program. Enter and 
run the following: 

10 INPUT "How old are you? ";A0E 
20 IF AGE>20 THEN GOTO 50 
30 PRINT "Have a Coke." 
40 END 

50 PRINT "Have a martini." 
60 END 

RUN 

How old are sou? !? 

Have a Coke. 

0k 

RUN 

How old are you? 31 
Have a martini. 
0k 

What will happen if you enter 20 for the age? 

Table 4-1. 

Relational Operators 



MBASIC Symbol Description 

= Equal to 

<> Not equal to 

> Greater than 

< Less than 

>= Greater than or equal to 

<= Less than or equal to 
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DUMMY DATA 

Enter and run this next example: 

10 READ A 

20 IF A>0 THEN PRINT A; 
30 GOTO 10 
40 END 

50 DATA 17,13,3,27 



RUi 

17 13 3 27 
Out of DATA in 10 
0k 

The "Out of DATA" message comes because line 10 tried to read a 
fifth data item which is not present. Now let's consider the solution to 
this little difficulty. 

One method of telling the computer when it has reached the end 
of your data is to add a special number that marks the end of the 
DATA statement. This special number is referred to as dummy data. 
Although it does not make any difference what the number is, the 
number should be outside the range of realistic values for the data 
you are working with. 

The next program reads in the following numbers: 47, 10, 83, 61, 
98, 7, 18, 36, 88, 41, and 50. It then prints out only those numbers that 
are greater than or equal to 50. At the end of the data statement, we 
add the number — 1, which is our dummy data. Its only purpose is to 
tell the program that there is no more data. The program will 
transfer execution to line 50 when A equals —1. Enter and run the 
program to verify the output: 

10 READ A 

20 IF A = -1 THEN GOTO 50 
30 IF A >= 50 THEN PRINT A; 
40 GOTO 10 
50 END 

60 DATA 47,10,83,61,98,7,18,36,88,41,50,-1 



83 61 98 88 50 
0k 

What do you think would happen if line 40 were accidentally 
typed as GOTO 20? 
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REUSING THE SAME DATA 

[RESTORE] 

Now let's consider a variation on this problem. Enter the following: 

10 INPUT "Print numbers above what value'' ";MIN 
20 READ A 

30 IF A=-l THEN GOTO 10 
40 IF A>MN THEN PRINT A; 
50 GOTO 20 

60 DATA 47,10,83,61,98,7,18,36,88,41,50,-1 
RUN 

Print numbers above what value'' 75 
83 98 S3 

Print numbers above what value? 29 
Out of data in 20 

In this program you are asked to indicate the minimum value for 
the numbers to be printed. When the program has read all the data 
and gets to the dummy data, line 30 sends you back to line 10 and 
asks you for a new minimum value. But unfortunately, all of the data 
has been read and is therefore unavailable to another READ state- 
ment. When you enter a new value, you will get the message "Out of 
DATA in line 10". One way to prevent this is to enter a new line, 
numbered 15, with the statement RESTORE. This resets the data 
pointer to the first item of data. By using the RESTORE statement, 
you can run the program as many times as you wish. You now have 
the following: 

15 RESTORE 
0k 

LIST 

10 INPUT "Print numbers above what value-' ";MN 
15 RESTORE 
20 READ A 

30 IF A=-l THEN GOTO M 
40 IF A>MIN THEN PRINT A; 
50 GOTO 20 

60 DATA 47,10,83,61,98,7,18,36,88,41,50,-1 
0k 

EXITING FROM A PROGRAM 

The preceding program has one additional difficulty. There is no 
way to stop the program except by pressing CTRL-C. To fix this, add 
the following line (line 12) to the program: IF MIN=0 THEN END. 
Of course, we must also inform the user of the program of this option. 
Thus, at the end of your prompt for the INPUT statement, add the 
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words "Type to end." If you list the program, you now have the 

following: 

LIST 

10 INPUT "Print numbers above what value? (Type to end) ";MIN 
12 IF MIN=0 THEN END 
15 RESTORE 
20 READ A 

30 IF A=-l THEN GOTO 10 
40 IF A>MN THEN PRINT A; 
50 GOTO 20 

60 DATA 47,10,83,61,98,7,18,36,88,41,50,-1 
Ok 

Now you can run the program and exit in a normal fashion. 

COUNTING LOOP 

A second method of ending a loop is to use a counter. The program 
below is similar to the last one, except in this case we will test a 
variable called COUNT to terminate the program. 

10 READ COUNT 

20 IF COUNT = THEN GOTO 70 
30 READ A 

40 IF A <= 50 THEN PRINT A; 
50 COUNT = COUNT - 1 
60 GOTO 20 
70 END 

80 DATA 8,47,83,61,98,7,18,41,50 
RUN 

47 10 7 18 41 50 
0k 

In line 10 the value for COUNT is read as the first item in the DATA 
statement, so COUNT is equal to 8. Line 20 checks this value; when 
it becomes 0, the program will end. Line 30 begins to read the data 
and prints out those values that are less than or equal to 50. In line 50 
COUNT is decremented by 1, and the program returns to line 20. As 
soon as it has read eight values, COUNT will be equal to and the 
program will end. 

More Branching 

[IF/THEN/ELSE] 

A variation of the IF/THEN statement is the IF/THEN/ELSE 
statement. The ELSE gives you a second choice for branching. If the 
condition following IF is true, the program performs the statements 
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following THEN. If it is false, it performs the statements following 1 
ELSE. Enter and run the following: 

10 INPUT "How old are you? ';AG£ 

20 IF AGE>20 THEN PRINT "Have a martini." ELSE PRINT "Have a Coke." 
30 END 

How old are you? 13 
Have a Coke. 
Ok 
RUN 

How old are you 7 21 
Have a martini. 
Ok 

This is the same example we used earlier, but it has been reduced 
from six lines to three. 

Using Logical Operators 

[AND, OR] 

Now we will deal with the two most commonly used logical opera- 
tors, AND and OR. These two operators are commonly used to control 
program flow or to make compound comparisons. Later in the book, 
we will go into other applications of the logical operators. 

First let's use both AND and OR to make a double comparison. 
Enter and run the following: 

10 READ A 

20 IF A<0 THEN END 

30 IF A>10 AND A<20 THEN PRINT A 

40 DATA 7,16,4,25,-1 

50 GOTO 10 



16 

0k 

This program prints only those numbers that are greater than 10 and 
less than 20. Now change line 30 as shown below: 

30 IF A<10 OR A>20 THEN PRINT A 

7 
4 

25 
0k 
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The program now prints only those numbers that are less than 10 or 
greater than 20. 

Notice that the variable A in line 30 must be explicitly stated on 
each side of the logical operator. The statement "IF A>10 AND <20 
PRINT A" would give you a syntax error. 

Now try the following example: 

10 INPUT "How old are you? ":AG£ 

20 IF AGE<7 THEN PRINT "Have a glass of silk/ 

30 IF AGE>=7 AND AG£<=20 THEN PRINT "Have a Coke." 

♦0 IF AGE>20 THEN PRINT "Have a nartini." 

50 END 



How old are you? '& 

Have a Coke. 

0k 

RUN 

How old are you? 5 
Have a glass of milk. 
RUN 

How old are you? 21 
Have a martini. 
0k 

As another example, enter the following: 

10 READ NAHt,AGE,SEX» 

20 IF NAM* a "• THEN GOTO 50 

30 IF AGE >= 18 AND SEX*="F* THEN PRINT NAM*, AGE 

40 GOTO 10 

50 END 

60 REN - NAME DATA 
70 DATA GEORGE, 19, N 
30 DATA HILHA,15,F 
90 DATA LISA,20,F 
100 DATA MIKE,I3,N 
110 DATA RITA, 18, F 
120 DATA SAM,18,H 
130 DATA J0DY,19,F 
140 DATA ",0," 



LISA 20 
RITA 18 
J0DY 19 
0k 

Notice the data items in lines 70 through 140. When data is asso- 
ciated in groups like this, each group is referred to as a record. Note 
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also that line 140 contains the dummy data to terminate this pro- 
gram. Only the variable NAM$ checks for this dummy data, but 
there must be data items for the variables AGE and SEX$ as well, or 
you will get the error message "Out of DATA in line 10". 

Now try one more example by making a change in line 30 so that 
we can use the OR operator. Type in the following for line 30: 

30 IF AGE >= 18 OR S£X*="F" THEN PRINT NAM*, AGE 

Can you predict the output before you run the program? 

W 
15 
20 
18 
18 
19 



TUTORIALS 



Tutorial 4-1: Finding the Largest Value 

Write a program to find and print out the largest number in the 
following set of data. Use the READ and DATA statements for data 
entry. 

DATA: 4,34,29,43,8,2,11,83,15,9,-1 

USING A FLOWCHART 

We will approach the solution to this problem a little differently 
than we did earlier. We will use what is called a flowchart. Figure 
4-1 shows the shapes of the boxes in our flowchart. 

With the flowchart drawn, it is easier to write and debug the pro- 
gram. By looking at the flowchart in Figure 4-2, you can trace the 
execution of the program and can see exactly what the program is 
meant to do. This can be especially helpful if your program goes into 
an endless loop, since the flowchart will show you all the possible 
places that an endless loop might occur. 



GEORGE 
HILMA 
LISA 
RITA 
SAM 
JODY 
Ok 
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Shape 



Purpose 



c 



3 




-o o 



Starts and ends a flowchart diagram 
Assigns values to a variable 

Indicates when data is entered into or output from 
a program 



Indicates a decision statement; always has one 
arrow pointing in and two pointing out 



Indicates a connection from one part of the pro- 
gram to another; always occurs in pairs 



Figure 4-1. 

Flowchart symbols 




Figure 4-2. 

Flowchart for finding largest number 



Again, we will use dummy data to signify when we have read the 
last data item. In addition, we need a holder to keep the largest 
value. Each time we read a new value from the DATA statement, we 
will let the variable A hold that value. A substitution of A for 
LARGEST will be made if A is greater than LARGEST. 

10 REM - -=*LARGEST»=- 
20 REM - 10/24/32 
30 REM - 

40 READ LARGEST Initialize 

50 READ A 

60 IF A=-l THEN 90 

70 IF A > LARGEST THEN LARGEST = A 

80 GOTO 50 

90 PRINT "The largest number is";LARG£SI 
100 END 

110 DATA 4,3,29,43,8,2,11,83,15,9,-1 
RUN 

The largest number is 83 
0k 

In line 40, we initialize the variable LARGEST. The program 
loops through lines 50 to 80, each time replacing the value held in 
LARGEST with the value held in A, if it is greater. As soon as the 
value —1 (the dummy data) is read, the program proceeds to line 90 
and prints the value held in LARGEST. 

Tutorial 4-2: Translating Numerals 
To Words 

Write a program to input an integer from 1 to 10 and print out 
the word that stands for that integer. For example, if your answer to 
INPUT is 3, then your output would be "three." 

We will use the READ and DATA statements to assign the words 
"one" through "ten" to a variable. Our variable in the READ state- 
ment must be terminated with a dollar sign ($), indicating a string 
variable. 

10 REM - -=*NBR10»=- 
20 REM - 10/24/82 
30 REM - 

40 INPUT "Enter an integer from to 10: ",t 
50 1=0 

60 READ NUMBER* 
70 IF I=X THEN 100 
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(Tutorial U-2: Continued) 

SO 1=1+1 
90 GOTO 60 

100 PRINT "The number is " ; NUMBERS 
110 END 

120 DATA zero,one, two, three, four, five, six, seven, eight, nine, ten 
RUN 

Enter an integer number from to 10: 2 

The number is two 

0k 

RUN 

Enter an integer number from to 10: 10 

The number is ten 

0k 

In line 50, the counter I is initialized to 0. In the loop section of 
this program, lines 60 through 80, the computer reads and compares 
the numbers. If the word does not match the number, the computer 
returns to 60 to process the loop once more. As soon as the match is 
found, it proceeds to line 100 and prints the word stored in the vari- 
able NUMBER$. 

In this problem, instead of using dummy data to terminate our 
READ statement, we use a counting loop. The counting loop is 
appropriate to use when you have a fixed number of items in the 
DATA statement. Dummy data, on the other hand, should be used 
when you might change the number of data items in the list. In this 
case we input the count from the user in line 40. What will happen if 
the user inputs a number greater than 10? How might you resolve 
this problem? 



Tutorial 4-3: Payroll Problem 



Let's return to our payroll program and replace some of the 
statements with instructions that have been introduced in this 
chapter. 

10 REM - -=*PAYR0LL.C4*=- 
20 REM - 08/16/82 
30 REM - 

40 INPUT "Number of widgets produced per day? WIDGETS 
50 TOTAL. HAGES=0 
60 READ EMP.RATE 

70 IF EMP.RATE=0 THEN 110 'Zero rate signals end of data 

80 EMP . EARN=EMP. RATE*3 'Compute employee earnings 

90 TOTAL, WAG£S= TOTAL. WAGES+EMP. EARN 'Total employee wages 
100 GOTO 60 
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(Tutorial US: Continued) 

110 UNIT.COST=TOTAL.WAGES/WIDGETS 'Compute unit cost 
120 PRINT "Unit cost = UN IT, COST 
130 END 

140 DATA 4.78,5.01,7.43,0 

In this program, we have made full use of the REM statements. 
Both forms of the comment statement (REM and the single quotation 
mark) have been used to add comments to an existing line. In line 40, 
the INPUT statement is used along with its prompt to input the 
number of widgets produced per day. The third change that has been 
introduced is the use of READ and DATA statements to enter the 
wages, rather than the LET statement that was used in Chapter 2. 
Here is used as a dummy data value rather than —1. As we pro- 
gress through this book, we will continue to add new instructions to 
make the program and its applications more practical. 



EXERCISES 



1. Write a program to read in ten numbers and print out 
only those numbers whose values are >= 10 and <= 20. 
Use the following data: 17, 4, 37, 41, 26, 11, 1, 40, 32, 16. 

2. Use a READ and DATA statement to enter in the fol- 
lowing numbers: 16, 28, 83, 47, 32, 7, 19, 81, 57, 93. Have 
your program determine the sum and average of the 
numbers. 

3. Write a program to read in ten first names. Print the 
names out in a column. Use dummy data to terminate 
the READ loop. Use the following data: TOM, FRED, 
GREG, WALT, MARK, SAM, SALLY, MARY, ANN, 
SUE. 

4. Change problem 3 so the names are printed out in a sin- 
gle line, and use a counter to terminate reading the 
names. (Hint: You will need to insert a blank, " ", to 
separate the names.) 

5. Rewrite the payroll program so that it will "loop" to ask 
the user for additional values for EMP.RATE. 




Statements: EDIT, AUTO, DELETE, 

RENUM, CONT 

Control Characters: A R, A H, A U, A A, A I, A C, A S, 

A Q, A 



The commands presented in this chapter deal with the housekeep- 
ing chores of writing a BASIC program. As you begin writing longer 
programs, you will need to learn to correct program statements. The 
sooner you become proficient with the editor, the easier it will be for 
you to write and correct errors in MBASIC programs. 
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Editing Your Program 

[EDIT] 

Enter and run the following: 
10 IF X = 3 THEN EN) 

20 PRINT "THE GIANTS WILL WIN THE PENNANT THIS YEAS." 
30 X = X + 1 
40 GOTO 10 

RUN 

THE GIANTS WILL WIN THE PENNANT THIS YEAR. 
THE GIANTS HILL WIN THE PENNANT THIS YEAR. 
THE GIANTS HILL HIN THE PENNANT THIS YEAR. 
0k 

Now let's use the editor to make some changes. To edit an 
MBASIC program statement, you use the command EDIT followed 
by the number of the line you wish to edit. This is also called entering 
edit mode, which we described in Chapter 1. 

EDIT 20 

LOOKING AT THE LINE (L) 

You are now in edit mode. On the screen the following appears: 

20 HE 

In this section, the position of the cursor is marked by a shaded box. 
In the preceding illustration, the cursor is two spaces to the right of 
the 20. 

In order to see the line you are going to edit, press L. Line 20 
appears on the screen with the cursor again on the left. 

20 PRINT "THE GIANTS HILL HIN THE PENNANT THIS YEAR." 

20 m 

A good habit to get into when you first enter the edit mode is to type 
L so that the line you are about to edit appears on the screen imme- 
diately above the cursor. 

Now press SPACE three or four times. Notice that the cursor moves 
one space to the right each time, exposing a new character in line 20 
as it moves. You could, of course, repeat this process until the entire 
line was on the screen. 
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Press L again so that the cursor is again on the left-hand side of 
the screen. 

Now let's try a couple of quicker ways to move the cursor to a 
desired position on the line. Type the number 14 (nothing appears to 
happen on the screen) and then press SPACE. The cursor moves 14 
columns, to the N in the word GIANT: 

20 PRINT "THE GIAgg 

Now press 8 and then SPACE. The cursor moves eight more spaces to 
the right: 

20 PRINT "THE GIANTS WILLI- 

With this combination of keys, you can quickly move to any position 
in the line you are editing. 

Now press L again and try another way to move the cursor. 

SEARCHING FOR CHARACTERS (S) 

With the cursor on the left-hand side of the screen, type S for 
Search. When you use the S command, nothing happens, but you are 
telling the editor to move the cursor to the first occurrence of the 
next key you press. Now press the letter A. The cursor moves imme- 
diately over the first A in that line (the A in GIANTS): 

20 PRINT "THE Gigs 

Now press the number 3, then the S, and then the N. The cursor 
passes over the N in GIANTS. Because you pressed the 3 before the 
S, you were telling the editor to search for the third occurrence (after 
the cursor) of the letter N. That is why it passed over the N in 
GIANTS and the N in WIN and then stopped on the first N in 
PENNANT. 

Of course, moving the cursor is not the only thing you are inter- 
ested in doing with the editor. You may have an extra letter in a 
word, or possibly a word that you want to change or eliminate. 

DELETING CHARACTERS (D) 

Type L again so that the cursor is on the left. Move the cursor 
over the N in GIANTS. As you may have guessed, the code to tell the 
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editor to Delete is the letter D. Type D, and you will see the letter N 
bracketed by backslashes (\N\) as shown here: 

20 PRINT "THE GIAUIVjg 

These marks are used to give you visual proof of what has been 
deleted from the line you are editing. Press L once and then again so 
that you can see how the line appears without the letter N: 

20 PRINT "THE GIA\N\TS WILL WIN THE PENNANT THIS YEAR." 
20 PRINT "THE GIATS WILL WIN THE PENNANT THIS YEAR." 

20;§i; 

Now move the cursor over the G of GIATS and press 5D and L. 
The remaining letters are bracketed by backslashes. 

20 PRINT "THE \6IATS\ WILL WIN THE PENNANT THIS YEAR.* 

20 1: 

You can use this procedure to delete any number of characters you 
wish. 

In some situations, you may wish to change characters instead of 
deleting them. 

CHANGE CHARACTERS (C) 

Move the cursor over the T in THIS. Type C for Change and the 
letter N. The cursor is now over the H in NHIS, since the T changed 
to N. Type 3C and the letters EXT, which will change the word 
THIS to NEXT. Just as with the D for delete, the number you type 
before the C tells the editor how many letters you are going to 
change. 

Press L twice and line 20 appears like this: 
20 PRINT "THE WILL WIN THE PENNANT NEXT YEAR." 

20 m 

We eliminated the word GIANTS with the result that we no longer 
have a proper sentence. 



INSERTING CHARACTERS (I) 

Move the cursor to the space before the W in WILL. 

20 PRINT "THE fttfltl WIN THE PENNANT NEXT YEAR." 
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In the position where the word GIANTS used to be, let's enter 
ROYALS. To do this, type I for /nsert and then type ROYALS. Now 
press ESCAPE and then L and you have 

20 PRINT "THE ROYALS WILL WIN THE PENNANT NEXT YEAR.' 

20 m 

This procedure is important and causes a lot of problems for most 
programmers when they start to use the editor. You must press 
ESCAPE in order to leave insert mode. If you are still in insert mode, 
any edit command, such as pressing the SPACE bar to move the cur- 
sor, will not be interpreted as an instruction to the editor. The keys 
you press will simply continue to be inserted until you press ESCAPE. 

Use D and I to change line 20 from 

20 PRINT "THE ROYALS WILL WIN THE PENNANT NEXT YEAR." 
to 

20 PRINT "THE GIANTS WILL WIN THE PENNANT THIS YEAR." 

Did you remember to press ESCAPE to leave insert mode? 

FINISHING THE EDIT (RETURN) 

When you are satisfied with the line you are editing, press 
RETURN and you will return to the MBASIC direct mode. The func- 
tions just described are the most commonly used editing functions, 
but here are some additional editing commands that you will find 
useful as you write more programs. 

EXTENDING THE LINE (X) 

Typing X for eXtend moves the cursor immediately to the end of 
the line and places you in insert mode. To try this, enter edit mode 
again by giving the command EDIT 20. Now type X. The cursor 
moves to the end of the line. 

20 PRINT "THE GIANTS WILL WIN THE PENNANT THIS YEAR.'j-g 

Press BACKSPACE twice to move the cursor over the period and 
type OR MAYBE NEXT." and ESCAPE. Line 20 now reads 

20 PRINT "THE GIANTS WILL WIN THE PENNANT THIS YEAR OR MAYBE NEXT." M 
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GETTING THE OLD LINE AGAIN (A) 

If you do not like this addition to line 20, first press ESCAPE to get 
out of insert mode. Then type A for Again and L to see the line. Now 
you have 

20 PRINT "THE GIANTS WILL WIN THE PENNANT THIS YEAR." 

20 ii 

The A command cancels any changes you make while in edit mode. 
You are still in edit mode and may begin editing again if you wish. 

ENDING EDIT (E) 

Typing E for £"nd has the same effect as pressing RETURN. Like 
RETURN, E places you back in direct mode. However, when you press 
E, the portion of the line after the cursor is not printed, although it is 
still in the computer's memory. 

QUITTING WITHOUT CHANGING (Q) 

Pressing Q for Quit does the same thing as A, except that you exit 
edit mode and return to direct mode. 

HACKING THE END OF THE LINE (H) 

Pressing H eliminates everything to the right of the cursor and 
causes you to enter insert mode automatically. In order to change 

20 PRINT "THE GIANTS WILL WIN THE PENNANT YEAR." 

to read 

20 PRINT "THE GIANTS WILL WIN THE PENNANT SOME DAY." 

move the cursor over the T in THIS and type H; then type SOME 
DAY." and press ESCAPE. 

KILLING UP TO A CHARACTER (K) 

Pressing K .Kills everything in the line you are editing from the 
position of the cursor to the letter you indicate. Thus K is really a 
search and delete command. 

20 PRINT "THE GIANTS WILL WIN THE PENNANT SOME DAY." 

20 1- 
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Move the cursor over the T in THE, and type K and W. This gets 
rid of everything in line 20 up to W in WILL. The screen shows this: 

20 PRINT "\THE GIANTS \$i 

Press L once and you have 

20 PRINT "\THE GIANTS \HILL WIN THE PENNANT SOME DAY." 

20 ii 

To see the line as it will appear in your program, press L again: 
20 PRINT "WILL WIN THE PENNANT SOME DAY." 

20 m 

Sometimes it is more convenient to use the K command to delete a 
portion of a line than it is to use the D command. We will leave it to 
you to complete the line with the team of your choice. 

If you intend to do a lot of programming or even just a little, it is 
well worth the effort to spend an hour or so practicing with the editor 
now. You will find that if you become proficient with it now, it will 
save you a great many hours in the long run. 

Automatically Entering Line Numbers 

[AUTO] 

The AUTO command instructs MBASIC to enter line numbers 
for you. To use this command efficiently, you should have a carefully 
planned program with a flowchart and a good idea of the program's 
final form. If you give the AUTO command without indicating a line 
number, the value 10 for both the first line number and increment 
will be used. 

After you give the AUTO command, MBASIC displays your first 
line number, 10. Enter your first program line, and then press 
RETURN. MBASIC prompts you with 20. Enter your next line, and so 
on. To get out of automatic line numbering, press CTRL-C. For 
example: 

AL&T0 

10 PRINT "This is a short piwan." 
20 END 
30 'C 

OK 
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Now give the NEW command to clear memory, and enter the 
program again with the following AUTO command: 

110 PRINT "This is a short progra." 
105 END 
110 'C 

Ok 

The first number after AUTO indicates the beginning number of 
your program, and the second is the number of lines to increment 
each time. 

If you tell AUTO to overwrite lines in your current program, it 
will put an asterisk after each line number that exists to tell you that 
you are losing your old lines. If you do not want to overwrite these 
lines, type CTRL-C to exit from AUTO. 



Deleting Line Numbers 

[DELETE] 

You have already learned how to delete a single line by typing the 
line number and pressing RETURN. The DELETE command allows 
you to delete any section of a program you wish. 

Enter the following program: 

100 READ A 

105 IF A = -1 THEN GOTO 120 
110 IF A >= 50 THEN PRINT A 
115 GOTO 100 
120 END 

125 DATA 47,10,83,61,98,7,18,36,88,41,50,-1 
LIST 

100 READ A 

105 IF A = -1 THEN GOTO 120 
120 END 

125 DATA 47,10,83,61,98,7,18,36,88,41,50,-1 
0k 

Entering a dash and a line number deletes all lines from the 
beginning of the program to the number you type. 

DELETE -105 
LIST 
120 END 

125 DATA 47,10,83,61,98,7,18,36,88,41,50,-1 
0k 
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There is no way to delete from a line number to the end of the 
program unless you know the last line number. 

DELETE 120- 

Illegal function call 

Ok 

Renumbering a Program 

[RENUM] 

As you write longer programs, you will find that you frequently 
add new lines or delete existing ones. Before long, the numbering of 
the program lines will be very haphazard. The command to renum- 
ber a program is RENUM. By using RENUM appropriately, you can 
immediately renumber the program, starting at any line number and 
using any increment. 

Enter the following: 

5 READ A 

10 IF A = -1 THEN GOTO 25 
15 IF A >= 50 THEN PRINT A 
20 GOTO 5 
25 END 

30 DATA 47,10,33,61,98,7,18,36,88,41,50,-1 

RENUM 
LIST 

10 READ A 

20 IF A = -1 THEN GOTO 50 
30 IF A >= 50 THEN PRINT A 
40 GOTO 10 
50 END 

60 DATA 47,10,83,61,98,7,18,36,88,41,50,-1 
0k 

The default values for RENUM are to start the program at line 10 
and increment the numbers by 10. Notice that the 25 in line 10 has 
changed to 50, corresponding to the new location of line 25. 

RENUM 100,30,5, 
LIST 

10 READ A 

20 IF A = -1 THEN GOTO 1 40 
100 IF A >= 50 THEN PRINT A 
105 GOTO 10 
110 END 

115 DATA 47,10,83,61,98,7,18,36,88,41,50,-1 
0k 
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The number 100 tells MBASIC the first line number to use: 30 
indicates the old line number at which to start renumbering and 5 is 
the new increment. 



Using Control Characters 

[ a R, a H, a U, a A, a I, a C, a S, a Q, a O] 

MBASIC supports the use of several control characters for enter- 
ing programs. Some of these control characters are useful when 
entering or running a program, while the usefulness of others 
depends largely on the characteristics of your terminal. We will de- 
scribe each control function, but you will have to decide on their 
value with respect to your terminal. For instance, CTRL-I is inter- 
preted by MBASIC as the TAB key. If your terminal has a TAB key, 
then you would use that key instead. 

A R Pressing CTRL-R causes the line you are currently 
working on to be retyped. For instance, if you have 
made corrections in a line and your terminal shows 
deleted characters within brackets or by some other 
means, typing A R will redisplay the line in its correct 
form, showing exactly what will be entered into 
memory when you press RETURN. 

DELETE Pressing DELETE causes the \ symbol and the letters 
being deleted to be printed. If you have just typed in 



and the cursor is just after the T, % press DELETE three 
times. The screen now displays 



Now enter the letters RINT. The screen shows 
10 PINT\TNI\RINT g£ 

To see the corrected version, press A R. 

A H Pressing A H has the same effect as BACKSPACE: it 
deletes the last character typed in by moving the cur- 
sor one space to the left. Most terminals have a BACK- 
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SPACE key that you would use instead of pressing the 
two keys to make A H. Either BACKSPACE or A H is more 
convenient to use than the DELETE key since the 
deleted characters do not remain on the screen. 

A U Pressing A U causes MBASIC to ignore whatever you 
are currently entering. If you have entered a line and 
there are several mistakes, it may be easier to start 
over with a new line. Type A U and begin entering the 
line again. 

A A This key sequence allows you to change from direct 
mode to edit mode. If you are entering a line and you 
notice you have made an error early in the line, type A A 
to enter edit mode. Or if you have typed in a line fol- 
lowed by RETURN and you then notice an error, press 
A A before typing anything else and you will be in edit 
mode. 

Type L after entering edit mode to see the line you 
are editing. If you have entered edit mode with A A, you 
can also edit the line numbers. Suppose you are enter- 
ing a line and forgot the word PRINT, as in this 
example: 

10 "NOW IS THE TIME FOR ALL GOODiS 

Press A A and you have 

m 

Entering edit mode in this manner causes an ! to be 
printed on the left side of the screen without a line 
number. You may now use all the features of the editor 
to make your corrections. 

A l Pressing A I works like the tab function. Tabs are set 
every eight columns. Pressing A I moves the cursor to 
the next tab stop. Most terminals have a TAB key. 

A C As you already know, A C can be used to interrupt a 
program in an endless loop. It can also be used to 
interrupt any program at any time. 

A S Typing this sequence suspends program execution. If 
there is output on the screen that you would like to 
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review before it moves up, type A S. The material will 
stay on the screen, allowing you to examine it. This 
sequence differs from A C in that it does not return you 
to command mode. 

10 A=5 

20 PRINT A;" ";A+5;" ":A+10 
30 A=A+15 
4C GOTO 20 









5 


10 


55 


20 


25 


30 


35 


40 


45 


50 


55 


.40 


*S 







"Q This sequence resumes execution of a program that 
you have stopped by pressing A S. On some computers, 
pressing any key will resume execution of the pro- 
gram. However, the standard for most computers that 
employ A S to cause a pause during output is to accept 
only A Q in order to continue. 

8 

65 70 75 

80 85 90 

etc. 

A This sequence is used to stop the output of a program. 
The program continues to run, but no output is dis- 
played at the terminal. Typing A a second time re- 
sumes the output to the terminal. 









5 


10 


15 


20 


25 


30 


35 


40 


45 


50 


55 


60 


*0 






*0 

1005 




1010 


etc. 







Of course, the numbers that are displayed when output 
resumes depend on the time interval to the second A 0. 



Editing a Program 77 



Continuing a Program 

[CONT] 

After stopping a program with A C, you can continue its execution 
from where it left off with the CONT command as long as you have 
not edited the program or added or deleted lines. 

Try this now. Run the previous example. 

RON 

5 10 15 

20 25 30 

35 *C 
Stop in Line 20 
Ok 

Your line number may be different. Now give the CONT command 
and the program will continue execution. 

40 45 

50 55 60 

etc. 

CHANGING A LINE NUMBER 

At times you may need to change a line number to move the line 
to a different position in the program. There are two reasons why you 
may wish to do this. First, because of an error in programming, you 
may have placed the line in the wrong spot to begin with, and second, 
because you want the same or a similar line in another place in the 
program. You cannot use the RENUM command to change the order. 
That is, the RENUM command will allow you to change line 
numbers, but it will not let you copy a line from one place to another. 
However, you can copy a line by using A A. 

As an example, enter the following program: 

10 IF A=1000 THEN EM 
20 A=l 

30 PRINT A;" ";A+1;" ";A+2 
40 A=A+3 

50 GOTO 30 

Either from examining or running the program, you will find 
there is an error: IF A = 1000 THEN END should be placed after 
line 30. So let's go ahead and change the line number of 10 to 35. To 



do this, first give the command EDIT 10 and press RETURN to im- 
mediately exit the edit mode. The following will appear on the screen: 



10 IF A=1000 THEN END 



Now before you press any other key, press A A; you are now in edit 
mode. Since the last line you were editing was line 10, A A will put you 
in edit mode, so that you can edit line 10, including the line number. 
Press L twice to see the line without the line number. Now press I 
and type in 35. Press RETURN, then enter the LIST command: 

LIST 

10 IF A=1000 THEN END 
20 A=l 

30 PRINT A; " ";A+lf" ";A+2 
35 IF A=1000 THEN END 
40 A=A+3 
50 GOTO 30 



Line 10 has been copied to line 35, but it also remains as line 10. 
You know how to get rid of an unwanted line: type 10 and RETURN. 
List the program, and you have the desired result: 



LIST 

20 A=l 

30 PRINT A;" ":A+1;" ";A+2 
35 IF AM000 THEN END 
40 A^-A+3 
50 GOTO 30 



Practice this a few times. You will find it very useful. 
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EXERCISES 



1. Describe in words the results of the following com- 
mands: 



2. Given the program line 
120 PRINT "The some is ";A+B+C 

with the cursor over the P, describe two ways to 

a. Remove the A+B+C from the end of the line. 

b. Correct the spelling of some to sum. 

c. Change the expression to A+B+C+D. 

d. Change the expression to C+A+B. 



a. RENUM 5,10,15 

b. AUTO 1000,100 

c. DELETE -70 



d. DELETE 70-100 

e. AUTO 3 

/. RENUM 100,90 



Formatting Output 



Statements: LLIST, LPRINT, NULL, 

WIDTH, WIDTH LPRINT, 
PRINT USING, 
LPRINT USING 

Functions: TAB, SPC 



Up to this point all of our output, whether from a program or the 
listing of a program, has been to the screen. It is as easy to get a 
listing of your program on the printer as it is on the screen. 



8! 
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Using the Printer 

[LLIST, LPRINT, NULL] 

Let's try the printer with the following program: 
10 A = 5 

20 PRINT "A 1/A A SQUARED SQUARE ROOT A" 

30 PRINT " * 

40 IF A > 130 THEN END 
50 PRINT A,l/A,A*A,A'(l/2) 
60 A = A + 25 
70 GOTO 40 

Enter the program, give the LIST command, and, of course, the 
listing will appear on the screen. Now, with your printer turned on 
and set up properly, give the LLIST command to make the output go 
to the printer. You will find that you use LLIST more and more as 
your programs become longer. Locating program errors is more con- 
venient if you have a hard copy, since a hard copy allows you to see 
the whole program rather than just the portion of the program that 
appears on the screen. (Hard copy means a copy of your program 
printed on paper, as opposed to a listing on the screen.) 

If you now run the program, the output will appear on the screen. 
Using the editor, change all of the PRINT statements in the program 
to LPRINT in lines 20, 30, and 50. Chapter 5 explains how to use the 
EDIT command and all of its options. 

For this example, you need to use the insert command (I) to place 
the letter L in front of the word PRINT. To do this on line 50, first 
enter 



Press I for insert. Press the letter L: 
50L 

Now press RETURN. The line now looks like this: 

50 LPRINT A, 1/A, A*A, AMI/2) 

Now repeat this on lines 20 and 30, as follows. Run the new pro- 
gram. All the output will go to the printer. 
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RUN 

A 



1/A 



A SQUARED 



SQUARE ROOT A 



5 

30 

55 

80 

105 

130 



.2 

.0333333 
.0181818 
.0125 

9.52381E-03 
7.69231E-03 



25 

900 

3025 

6400 

11025 

16900 



2.23607 

5.47723 

7.4162 

8.94427 

10.247 

11.4018 



Even if you intend at the outset to send the output to the printer, it 
is generally wiser to first write your program using PRINT state- 
ments. When the output on the screen is correct, use the editor to 
change the PRINT statements to LPRINT in order to send the output 
to the printer. 

A statement that may be necessary when working with your par- 
ticular printer is the NULL command. If the printer does not print 
some of the characters or lines when you list a program, try giving 
the command NULL 10. This puts 10 null characters at the end of 
each line. A null character is a character that does not print out. 
Using null characters is generally only necessary with older model 
printers, since the purpose of printing them is to slow the stream of 
characters sent to the printer. 

Note that 10 in this command is an arbitrary number. Experi- 
ment with smaller or larger numbers to determine the least number 
of nulls necessary for your printer to work properly. 



The WIDTH statement is used to set the number of columns (line 
length) printed on the terminal. If you are using the printer, use 
WIDTH LPRINT to set the width at the printer. The range of 
columns that can be used with either the WIDTH or WIDTH 
LPRINT statements is 15 to 255. If 255 is used, MBASIC will not 
insert any carriage return character at all, so the width is really 
infinite. The default value for WIDTH is 80. 

Change the WIDTH to 64 columns if you have a 64-column termi- 
nal. When you are working with special terminal functions, it is 
common to set the terminal width to 255 so that your program has 
complete control over where the output to the terminal or printer is 
to be printed. 



Setting Line Length 

[WIDTH, WIDTH LPRINT] 



When sending output to the printer on 13-inch-wide paper, set 
WIDTH LPRINT to 132. This is a common width for many printers. 
If your printer supports fewer columns, then, of course, you will set it 
to the maximum width for your printer. WIDTH and WIDTH 
LPRINT may both be used directly as commands or they may be 
used as statements in a program. 

To get an idea of how the WIDTH statement works, enter and run 
the following program: 



10 WIDTH 80 

20 I = 1 

30 PRINT I, 

40 IF I = 20 THEN END 

50 I = I + 1 

40 GOTO 30 



1 


2 


3 


4 


5 


6 


7 


8 


? 


10 


11 


12 


13 


14 


15 


16 


17 


18 


1? 


20 



Ok 

The comma at the end of line 30 causes the numbers to be spread 
out at 15-column intervals. Since line 10 sets the screen width to 80, 
MBASIC automatically inserts a carriage return so that each line 
does not exceed 80 columns. 

Now change line 10 to read "10 WIDTH 50", and run the pro- 



gram: 






RUN 






1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 




0k 







Now MBASIC inserts a carriage return in your output to keep 
lines within 50 columns. Once you give the WIDTH or the WIDTH 
LPRINT commands, the setting stays in effect until you set it again 
or until you reload MBASIC. In order to set the width from 50 back 
to 80 columns, give the WIDTH 80 command. 
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Positioning the Output 

[TAB, SPC] 



This is your first encounter with MBASIC functions. Functions 
are small programs built into BASIC to save you the trouble of writ- 
ing the code in your program. Many of the functions are used fre- 
quently by all programmers; others are very seldom used. The use 
that you make of a particular function depends largely on the type of 
programming you do. Here we will use two functions, TAB and SPC. 
Others will be introduced throughout this text as the programs bring 
them into play. 

The TAB function is similar to the TAB key on a typewriter. It 
moves the cursor to the position specified in the argument, which is 
enclosed in parentheses. If the cursor is already beyond that column, 
it moves to that column on the next line. 

Enter and run the following: 

!0 PRINT u TeNAMT B ;TAB(30)r "RENT" 

20 PRINT "SMITH, JOHN" ; TABOO.) ; "$425.00" 



The TAB function has a range of to 255 positions. Of course, you 
will not use large values like 255 unless your printer or screen can 
handle a very wide margin. The TAB function may be used with 
either the PRINT or LPRINT statements, but you cannot use it in 
any other statements. 

Run the following example in which the TAB argument is a 
variable: 

10 L = 5 

20 PRINT TAB(U;"B00"; 
30 IF L = 25 THEN END 
40 L = L + 5 
50 GOTO 20 



RUN 

TENANT 
•SMITH, JOHN 
0k 



RENT 
$425.00 



RUN 

BOO BOO BOO BOO BOO 

0k 
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SPACING IN YOUR OUTPUT 

The SPC function is also used to position the output from your 
program. The output is placed the number of spaces to the right of 
the current cursor position that is indicated in the SPC function 
argument. Try this by replacing TAB with SPC in the two previous 
examples. Note the change in output: 



10 PRINT "TENANT" ;SPC(30); "RENT" 

20 PRINT "SMITH, J0HN";SPC(30)"t425.0O" 



TENANT RENT 

SMITH, JOHN $425.00 

Ok 



10 L = 5 

20 PRINT SPC(L); "BOO"; 
30 IF L=25 THEN END 
40 L = L + 5 

50 GOTO 20 



B00 
BOO 



BOO 



BOO 



Ok 



Formatting Numeric Output 

[PRINT USING, LPRINT USING] 

All the programs you will write will produce output in one form 
or another, whether to the screen, to the printer, or to a disk file. The 
PRINT USING statement is a versatile tool for formatting this 
output. 

SCREEN OUTPUT 

With PRINT USING you can right-justify, align decimal points, 
or insert commas and dollar signs. The syntax of the PRINT USING 
command is 

PRINT USING formatstring; output 

The formatstring is a list of special characters that specify how the 
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output is to be printed. Here is an example of a PRINT USING 
command: 

10 PRINT USING "tt.t-";CASH 

Any characters in the format string that are not specific formatting 
codes are printed out exactly. 

The various characters that are used in the format string are 
illustrated in the following discussion. Examples will be given for 
each individual case. Combinations of these format strings will be 
shown at the end of this section. 

# The number sign (#) is used within the format string to 
represent numeric positions. If fewer numbers are printed 
than are called for by the number of positions in the 
string, then the numbers will be right-justified. Right- 
justified refers to the numbers against the right-hand 
side of the field (for example, right- justified: | 23|; left- 
justified: 1 23 |). 

10 A = 8263:B = 17 

20 PRINT USING "!HHtli";A 

30 PRINT USING "!#i#lli:";B 



RUN 

! 8263! 
! 17! 
Ok 

A decimal point may be placed at any position in the for- 
mat string between the number signs. If there are more 
positions to the right of the decimal point in the number 
than the format string calls for, the number will be 
rounded off. If there are fewer, zeros will be added. 

10 A=1432.676:B=12,3 

20 PRINT USING "HiH.H";A 

30 PRINT USING "HIH.il -; B 



RUN 

1432.68 
12.30 



+ A plus sign may be placed at the beginning or end of the 
format string. This causes the sign of the number, either a 
plus or a minus, to be placed before or after the number, 
depending on where in the format string you place the 
plus sign. 

10 A=96.341:B=-31.67 
20 PRINT USING "+###.«";A 
30 PRINT USING n +t##.il";B 
40 PRINT USING "M*.M+";A 



RUN 

+96.34 
-31 . 67 
96.34+ 



The negative or minus sign at the end of the format string 
causes a minus sign to be printed after negative numbers. 

10 A=-48.44:B=123 

20 PRINT USING "t#ltt.#i-";A 

30 PRINT USING "##*#. #i-";B 



RIM 

48.44- 
123.00 
Ok 

Notice that the variable B is not printed with a trailing 
minus sign (— ), since it is a positive number. 

Two asterisks placed at the beginning of the format string 
cause the leading spaces to be filled with asterisks. The 
two asterisks also indicate two print positions. 



10 A=167.341 

20 PRINT USING "**#NMHIIt.lH";A 



RUN 

(S*»*»!l67.34 
Ok 



$$ Two dollar signs at the beginning of the format string 
cause a dollar sign to be printed immediately to the left of 
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the output. The two dollar signs also indicate two print 
positions, one of which is the dollar sign. 

10 A=97. 128 

20 PRINT USING "$$#tl.ll";A 



RUN 
$97.13 

Ok 

Two asterisks and a dollar sign placed at the beginning of 
the format string combine the effects of two asterisks and 
two dollar signs, causing asterisks to fill in blank spaces if 
spaces should occur and also causing a dollar sign to be 
placed immediately to the left of the number. This indi- 
cates three print positions. 

10 A=73.04 

20 PRINT USING "Kx$ft*t»tt.H";A 



RUN 

*sx**s$73.04 
Ok 

A comma preceding the decimal causes a comma to occur 
to the left of every third digit to the left of the decimal, 
which is useful for representing numbers in multiples of 
1000. 

10 A=1723841 

20 PRINT USING '**t*ttt»,.M*;A 



■ 

1,723,840.00 
0k 

A comma at the right of the format string causes the 
numbers printed to be separated by a comma. 

10 A=17:B=88:C=142 

20 PRINT USING »###.#*, ";A;B;C 



17.00, 88.00,142.00, 

Ok 
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Four carets ( AAAA ) placed after the last number sign (#) 
will cause the number to be printed in exponential 
notation. 

10 A=.00043 

20 PRINT USING "#l.tl'*"";A 
RUN 

4.30E-O4 
Ok 

An underscore (_) placed in a format string causes the 
next character to be taken as literal. 

10 A=421 

20 PRINT USING " *### #";A 



#4211 
0k 

If the percent sign (%) is printed to the left of a number in your 
output, this indicates that the number you are trying to place in the 
field is larger than the format string. The limit on the size of a 
number substituted in the format string of a PRINT USING state- 
ment is 24 digits. 

10 A=1631 

20 PRINT USING "#11" ;A 



ami 

0k 

If additional variables are added to the end of your PRINT 
USING statement, they will continue to reuse the fields on an alter- 
nate basis until all variables have been printed. For instance, more 
than one variable may be assigned to the same format field. 

10 A=9347.102 :B=16.786 :C=298432.1 
20 PRINT USING "#»###»«,. lt";A;B;C 



9.347.10 16.79 298,432.00 

0k 



Formatting Output 91 



USING A FORMAT VARIABLE 

A useful way to vary the PRINT USING statement is to set a 
string variable equal to the format string at the beginning of your 
program. Then you may use the string variable at any point. This is a 
particularly useful technique in programs dealing with dollars and 
cents, since the same format string may be used in these programs at 
several points. 

10 FORMAT* ="*«*#«*,. #f 

20 A=6784.5 

30 PRINT USING F0RMAT$;A 



$6,784.50 

Ok 

Further examples of the PRINT USING statement, with various 
combinations of the symbols just discussed, are presented in the fol- 
lowing discussion. 

Note that more than one format field may be included in the same 
format string as follows: 

10 A=12362 : B=95.786 

20 PRINT USING "**»######»»,.## $$##»»#. It"; A; B 

30 REM FIELD 1 FiaO 2 

RUN 

***k**12, 362.00 *?5.79 

a 



The format string is everything between the double quotation marks. 
In this example the format string contains two fields. The number of 
spaces you have between your fields, whatever it is, will be retained 
in the output. The number of fields contained in a format string is, in 
fact, restricted only by the length of the line. 

Now let's go back and take a look at the example we introduced at 
the beginning of this chapter. Clear the memory of your computer 
and load the first example of Chapter 6. Using the editor, change 
lines 20 and 50 so that the program appears as follows: 

10 A = 5 

20 PRINT TAB(2>;"A";TAB(11);"1/A";TAB(21);"A SQUARED" ; TAB(32) ; "SQUARE ROOT A" 

30 PRINT " ' 

40 IF AM30 THEN END 

50 PRINT USING "#•• #.#111 #»»««»*.»#« ##.##»";A, l/A,A*A,AMl/2) 
60 A=A+25 
70 GOTO 40 



J c I I 11= iviuf wiv- i ICII l\JkU\J\Jf\ 

Run the program and you have the following output: 



Pi ft) 

nun 

A 
n 


1 1L 
1/n 


L QfiHAPPn 
n oyUnntU 


QffllARP RflfiT 
oUUnrtC f\UU 1 


e 

J 




'->c; (\f\t\ 




30 


0.0333 


900.000 


5.477 


55 


0.0182 


3025.000 


7.416 


80 


0.0125 


6400.000 


8.944 


105 


0.0095 


11025.000 


10.247 


130 


0.0077 


16900.000 


11.402 


Ok 









Two major changes have been made in this program. In line 20 
we have used the TAB function in order to better control the table 
heading. In line 50 the PRINT USING statement with four fields in 
the format string is used to control the output from our variables. In 
line 30 a small change was made, shortening the line that underlines 
the heading. Run the program and note the output is presented in a 
much neater fashion than at the beginning of the chapter, before we 
had access to the PRINT USING statement. You will use the PRINT 
USING statement in almost all of the programs that you write from 
this point on. Work with it until you can use it quickly and with 
confidence. 

PRINTER OUTPUT 

When you wished to send output to the printer, you changed PRINT 
to LPRINT. Now use the editor to change PRINT USING to LPRINT 
USING. The output will be sent to the printer instead of to the screen. 



Formatting String Output 

Now let's take a look at the three format characters used with 
PRINT USING for string output. 

\n spaces\ The backslashes tell MBASIC to leave the same 
number of characters for the string as there are 
spaces between the quotation marks, that is, two 
more than the number of spaces between the 
back-slashes. Enter and run the following: 
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10 A$="ABCDEFG" 

20 PRINT USING "\ \";A$ ' 4 spaces between "V 

30 PRINT USING *\ \";A* ' 2 spaces between "\" 

40 PRINT USING "\\*;A* ' spaces between "\" 

m 
mm 

AECO 

AB 

01 



The exclamation mark (!) indicates that only the 
first character of the string is to be printed. Add 
the following line to your program: 



50 PRINT USING "!"; At 
BUM 

ABCDEF 

ABC0 

AS 

A 

0k 



& The ampersand tells MBASIC to allow space for 
the complete string to be printed. 

10 LAST$ = "SMITH":FIRST$ = "MIKE": ADM = "123 OAK ST." 

20 CITY* = "MARTINEZ";STATE*="CA":ZIP$="94553" 

30 PRINT USING "«,, I :l :& :i :l"iLAST*;FIRST*;ADD*;CITy*;STATE*;2IP» 



SMITH, MIKE 1123 OAK ST. : MARTINEZ :CA :94553 
Ok 



Combining Strings 

Two strings may be joined (concatenated) with the plus (+) operator 
to create a third string. Try this with the following example: 

10 A$="G0OF" 
20 Bt="BALL' 
30 C$=A$+8t 

40 PRINT C$;» ■; -SURPRISED?" 
RUN 

GOOF BALL SURPRISED? 
Ok 
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It makes no difference whether the strings are assigned to variables 
with an assignment statement or an INPUT statement. Try the 
following: 

10 INPUT "Enter first number (A$) ";A$ 
20 INPUT "Enter second number (W) ";B* 
30 C*=A*+B* 

40 PRINT "A$ + B* = ";C$ 



RUN 

Enter first number (A*) ? 246 
Enter second number (B$) ? 135 
A$ + B$ = 246135 

01 

In the following example, you may use a space between strings as is 
done in line 30; or you can directly print out strings that are added 
together without assigning them to a variable, as is done in line 50. 

10 LAST$="NEUMAN" 
20 FIRST$=°ALFRED" 
30 A$=FIRST$+» "+LAST$ 
40 PRINT A$ 

50 PRINT LAST$+\ HFIRST* 



Alfred Neman 
NeuHD, Alfred 



Now let's use some of these new ideas in our applications. 
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TUTORIALS 



Tutorial 6-1: Interest 

Here is a simple program for compound interest. The program 
determines how much interest you would receive on a savings account 
that is compounded monthly. It also tells you what your principal will be 
at the end of each month and what your current balance is. 

10 REM - -=*INTEREST.C6»=- 
20 REM - Simple Interest Table 

30 REM - 11/25/32 
40 REM - 

100 INPUT "Enter yearly interest rate in percent X",RATE 

110 RATE = RATE/100 'Convert RATE to a decimal 

120 INPUT "Enter starting balance *", BALANCE 

130 INPUT "Enter number of years to calculate: " , YEAP 

140 PRINT 

150 PRINT "Month principal interest balance" 

160 PRINT " ' 

170 FRMT$=" #»* mtt*i,.#t $$»*.#»» $$#«#!,. #t" 

180 MONTH = 1 'Start at month 1 

190 IF MONTH > 12*YEAR THEN 26* 'Are we done yet? 

200 PRINCIPAL = BALANCE 'Principal is last month's balance 

210 INTEREST = PRINCIPAL *RAT£*( 1/12) 'Compute interest on princpal 

220 BALANCE = PRINCIPAL + INTEREST 'Compute new balance 

230 PRINT USING FRMT$;MQNTH; PRINCIPAL; INTEREST; BALANCE 

240 MONTH = MONTH + 1 

250 GOTO 190 

260 PRINT 

270 PRINT USING "Ending balance: ***#»»§, .#K"; BALANCE 

280 END 

In line 110 the interest rate is converted to a decimal by dividing 
the percentage by 100. Lines 190 through 220 contain the main part 
of the program in which all the calculations are done. 

Pay particular attention to line 230. Here, our PRINT USING 
statement is included with the format variable FRMT$, which controls 
all of the output. Notice that in line 170, the variable FRMT$ is exactly 
the same length as the heading in the PRINT statement in lines 150 and 
160. Using a variable for a format string allows you to place your format 
string directly under the headings, as it is here, so that you can see 
immediately that everything will line up properly and so that you do not 
have to return to make continual adjustments to get the spacing in your 
format string correct. 



Keep in mind that we are using the default precision for variables, 
which means that we have only six places in our output. So this program 
will work accurately for figures up to $9,999.99. If you enter a starting 
balance over this amount, you will only have accuracy to six places. Here 
are the results of running the program with a s f arting balance of 
$1,000: 



fW 

Enter yearly interest rate in percent X12 

Enter starting balance $1000 

Enter number of years to calculate: 1 



Month 


principal 


interest 


balance 


1 


$1,000.00 


$10,000 


$1,010.00 


2 


$1,010.00 


$10. 100 


$1,020.10 


3 


$1,020.10 


$10,201 


$1,030.30 


4 


$1,030.30 


$10,303 


$1,040.60 


5 


$1,040.60 


$10,406 


$1,051.01 


6 


$1,051.01 


$10,510 


$1,061.52 


7 


$1,061.52 


$10,615 


$1,072.14 


8 


$1,072.14 


$10,721 


$1,082.86 


9 


$1,082.86 


$10,829 


$1,093.69 


10 


$1,093.6? 


$10,937 


$1,104.62 


11 


$1,104.62 


$11,046 


$1,115.67 


12 


$1,115.67 


$11,157 


$1,126.83 


Ending balance: 




mi, 126.83 



0k 



Enter this program and save it, using the name INTEREST.C6. We 
will return to this program in the next chapter when we introduce 
double-precision variables, which will enable you to change the pro- 
gram to work with larger values. 



Tutorial 6-2: Addresses 

This second application will print out, in mailing label format, the 
information that is contained in the data statements. 



10 REM - -=*LABEL.C6*=- 

20 REM - Print mailing labels 

30 REM - 12/07/82 
40 REM - 

100 COL = 4 'First column for labels 

110 READ COUNT 'Get number of names 
120 IF COUNT = THEN 200 'Done when count = 
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(Tutorial 6-2: Continued) 

130 READ NAM$,STREET$,CITY$,STATE$,ZIPii 'Read in one record 
140 LPRINT:LPRINT 'Skip down onto label 

150 LPRINT TAB(CQL);NAM* 'Print one label 

160 LPRINT TAB(CGL);STR£ETJ 

170 LPRINT TAB (COL) USING "l>, I. &";CITY$;STATE$;ZIPt. 
180 COUNT = COUNT - 1 
190 GOTO 120 
200 END 

210 ' 

220 'Hailing list data. First data is the number of names. 
230 ' 

240 DATA 2 

250 DATA "MIKE RAMSEY", "1275 ELSHORTH ST. APT 8", "BERKELEY", "CA", "94704* 
260 DATA "JERRY SMITH", "938 WALNUT AVE. " , "MARTINEZ" , "CA", "94553" 

In line 100 the column number in which each label is to begin is 
assigned to the variable COL. This variable is used in lines 150 through 
170 as an argument to the TAB function. It is easier to change the 
column number in this one line than to have to make the correction in 
the three lines where TAB is used. Line 240 contains the number of 
records that are contained in your data statements and is read into 
the variable COUNT. 

This program is set up for the printer. If you wish to run it on the 
screen, change your LPRINT statements to PRINT statements. The 
program uses the TAB function in conjunction with the LPRINT 
USING statement. Notice how you specify these together on lines 150 
through 170. The TAB function must be included between LPRINT and 
USING. Using the TAB function after the USING will cause an error. 
Of course, if output were going to the screen, the TAB would be used 
between the PRINT and USING statements. 

When you run this program, it will print out the names and ad- 
dresses in the mailing label format shown below. 

MIKE RAMSEY 

1275 ELSHORTH ST. APT 8 
BERKELEY, CA. .94704 

JERRY SMITH 
938 WALNUT AVE. 
MARTINEZ, CA. 94553 
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Tutorial 6-3: Payroll 

Load the payroll program from Tutorial 4-3. This time we are going 
to make only one minor change. 

10 REM - -=*PAYR0LL.C6*=- 

20 REM - Payroll with PRINT USING 

30 REM - 12/07/82 

40 REM - 

100 INPUT "Number of widgets produced per day? ".WIDGETS 
110 TOTAL. WAGES = 
120 READ EMP.RATE 

130 IF EMP.RATE = THEN 170 'Zero rate signals end of data 

140 EMP.EARN = EMP.RAT£*8 'Compute employee earnings 

150 TOTAL. WAGES = TOTAL. WAGES + EMP.EARN 'Total employee wages 
160 GOTO 120 

170 UNIT.COST = TOTAL. WAGES/WIDGETS 'Compute unit cost 
130 PRINT USING "Unit cost = $»#»»#.##"; UNIT.COST 
190 END 

200 DATA 4.78,5.01,7.43,0 

Notice that in line 180, the PRINT USING statement is used to control 
the output. In this example of the PRINT USING statement, an addi- 
tional feature has been added: namely, the fact that a string may be 
incorporated in the format string (in this case, "Unit cost ="). 

RUN 

Number of widgets produced per day? 42 

Unit cost = $3.28 

G* 



EXERCISES 



1. With the PRINT USING format string, print the fol- 
lowing numbers with dollar signs and appropriate 
commas to separate thousands. Round off each number 
to the nearest penny. Use the following data: 7.3845, 
6752.7, and 433.789. 

2. Write a program to convert from the Fahrenheit tem- 
perature scale to the Celsius temperature scale for a 
range of Fahrenheit temperatures from 30 degrees to 



Formatting Output 



215 degrees. Print your results out on both the screen 
and the printer, showing the results for each five 
degrees of change in the Fahrenheit scale. Use the for- 
mula C=5X(F-32)/9. 

3. Write a program to read in the following data and 
print it out in table format, as shown below, with an 
appropriate heading. Use the following data: 



Name 


Age 


Sex 


Phone # 


Mike 


24 


M 


413-2807 


Laura 


23 


F 


214-5712 


Alice 


28 


F 


671-4242 


Sam 


26 


M 


683-9896 



4. Given the following data, write a program to determine 
each student's grade. Find the average score for each 
student, and print out the names and average scores of 
only those students with an average score of less 
than 70%. 



5. Write a program to determine the amount of interest 
you will pay each month on a loan of $6000, where the 
interest is 14 1/2% per year. Use $250 as your monthly 
payment. Show the results in table form, indicating the 
interest paid each month and the remaining balance. 
Use the formula I=PXRXT (where P is the principal, R 
is the rate of interest, and T is the time in years). 



Name 

Mary 
Don 
Frank 
Betty 



Score (in %) 

63, 51, 78, 71 
83, 62, 91, 51 
72, 77, 61, 52 
44, 83, 71, 68 



Working With Variables 

And Loops 



Statements: DEFINT, DEFSNG, DEFDBL, 
DEFSTR, FOR/NEXT, 
WHILE/WEND 

Declaration 
Characters: %, !, # 
Operators: \, MOD 



Up to this point, the only declaration character we have used is the 
dollar sign ($) to indicate our string variables. For numeric variables 
we have been using single precision, but that is because it is the 
default variable type for MBASIC, not because we set the values that 
way. Now let's take a look at each of these numeric declaration char- 
acters in turn. 
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Variable Types 

[%, I, #] 

In Chapter 2, we introduced string variables and numeric vari- 
ables. There are actually three types of numeric variables: integer, 
single precision, and double precision. 

INTEGER VARIABLES 

A percent sign (%) at the end of a variable name indicates that the 
variable is an integer variable (for example, NUMBER%). The range 
for integers in MBASIC is -32768 to +32767. This range is deter- 
mined by the architecture of the computer, and just happens to be 
plus or minus 2 raised to the fifteenth power (2 15 ). 

Enter and run the following: 

10 A7. = 4:B7. = 7.3:CX = 7.7 
20 PRINT A7.,B7.,C7.,A 

Rill 

4 7 8 

C* 

Each of our variables, regardless of what we set it equal 
to in the program, is stored in MBASIC as an integer rounded off to 
the nearest whole number; that is, the 7.3 rounds to 7, and 7.7 rounds 
to 8. Note also that the final value in the output is 0. Since A has not 
been assigned, it takes on the default value set by MBASIC, 0. A and 
A% are two distinct variables, just as much so as if we had used 
completely different letters in their names. 

SINGLE-PRECISION VARIABLES 

If a variable name terminates with an exclamation mark (!), it is a 
single-precision variable. Single-precision numbers are numbers with 
six places (for example, 4.31467 or 431467). It makes no difference 
whether or not there is a decimal point. Single precision is the 
default value set by MBASIC if we do not set the precision. All of the 
numeric variables you have used so far were single precision. Enter 
and run the following: 

10 A! =3. 714 
20 PRINT A!, A 
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m 

3.714 3.71* 
* 

Please note that A! and A are the same variable, since they are 
both variable names with the same precision. This would also be true 
of any other variable; B is the same as B!, GIRAFF is the same as 
GIRAFF!, and so on. 

DOUBLE-PRECISION VARIABLES 

Terminating the variable with a number sign (#) indicates that it 
is double precision (for example, NUMBERS). Double-precision nu- 
meric variables are variables that hold 16 places (for example, 
4,312,896,345,214,791). Notice that double precision is actually almost 
three times as precise as single precision. Again it makes no differ- 
ence whether or not the number contains a decimal. Enter and run 
the following: 

U At = ? 
20 B# = 1 
30 CI = BI/AI 
40 PRINT CI 



.1111111111111111 
Ok 



This program prints out the result with accuracy to 16 places. 

Now consider the following program. The output variable C# is 
declared double precision, and indeed the output has 16 places. But 
only the first six are necessarily accurate, since the variables A and 
B are by default single precision. To ensure double-precision accu- 
racy, the output variable and at least one of the variables involved in 
the calculation must be double precision. 

10 A = 9 
20 B = 1 
30 CI « B/A 
40 PRINT CI 



.1111111119389534 
0k 
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Since we want the answer to be .1111111111111111, the numerator must 
also be double precision. Enter and run the following: 

10 At = 1/9 
20 B# = l#/9 
30 PRINT AI.BI 

RUN 

.1111111119389534 .1111111111111111 

ot 

In this example we show how a type declaration may be used with 
constants. In line 10, the division was carried out with single- 
precision accuracy before it was assigned to the double-precision 
variable A#. To overcome this problem, declare one of the constants 
double precision if any mathematical operation is to be performed. 
Then when the result is assigned to a double-precision variable, the 
output will be accurate to 16 places. 

The last declaration character is the dollar sign ($). You have 
already used this a great many times to declare your string variables, 
so we will not give further examples here. 

Defining Variable Types 

[DEFINT, DEFSNG, DEFDBL, DEFSTR] 

In addition to declaring variable types with the declaration char- 
acters (%, !, #, $) discussed in the previous section, you may also use 
MBASIC's DEF statements for this purpose. DEF stands for define. 

There are four of these DEF statements: 

DEFINT Define variables as integers 

DEFSNG Define variables as single precision 

DEFDBL Define variables as double precision 

DEFSTR Define variables as string variables. 

These statements are followed by one or more ranges of letters. The 
range of letters indicates that all the variables that start with these 
letters will be of the declared type. Enter and run the following: 

10 DEFINT A-C 
20 DEFSNG D-F 
30 DEFDBL G-I 

40 A = 5#/7# : D = 5#/7# : G = 5#/7t 
50 PRINT A.B,G 
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1 .714286 .7142857142857143 

All variables in your program beginning with the letters A 
through C will be integers. Those variables beginning with the let- 
ters D through F will be single precision, and those beginning with 
the letters G through I will be double precision. 

Add the following to the last example: 

60 H=G:H!=G:HX=G 
70 PRINT H,H!,H7. 

Run the program and you have the following: 
■ 

1 .714286 .7142857142857143 

.7142857142857143 .714286 1 

In the second line of output generated by line 70, you have the 
values held by H, H!, and H%. H is declared double precision in line 
30; therefore, it prints out 16 places. H! and H% print out six and one 
places respectively, since the declaration characters ! and % override 
the precision set by the DEF statement. 

You may also show a single letter, range of letters, or combination 
to define the starting letters. For example, DEFINT A-L, N, P-Q 
defines all variables starting with the letters A through L, N, and P 
through Q as integer. 

STRING TYPE 

Use the DEF statement to define strings for any given letter com- 
bination that you choose. We point it out here because MBASIC sup- 
ports this statement, but we strongly recommend that you stay in the 
habit of using the declaration character $ when assigning strings to 
variables. This makes it considerably easier to read your program 
later, since you can quickly see which variables are strings and which 
are numeric. 

10 DEFSTR A-B 

20 A * "NAME":B = "PHONE NUMBER" :C = "AGE" 
30 PRINT A,,B,C 

RUN 

Type mismatch in 20 
0k 
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You may already have run across this little error message in your 
programming. In this case it comes from the fact that in line 10 only 
the variables starting with the letters A and B are defined as string 
variables. Notice that in line 20, C is set equal to the string AGE. 
Consequently, you get the "Type mismatch" error message. To fix 
this, you could edit line 10 so that your program appears as follows, 
and run the program. However, to be safe use the $. 

10 mm a-c 

20 A = "NAME":B = "PHONE NUMBER" :C = "AGE" 
30 PRINT A,,B,C 



RUN 

NAME PHONE NUMBER AGE 

0* 

One point of interest in the output from this program is the large 
separation between NAME and PHONE NUMBER. This is caused 
by the extra comma between the variables A and B, which means 
that the string constant represented by B will begin in column 30. 



Integer Division 

N 

It is appropriate to use the lowest numeric precision that is suit- 
able for your program (to save memory space). It is also appropriate 
to use integer division when you are sure that the result is an integer. 
This operator may not noticeably increase the speed of your program 
for a single line of code, but when used many times in a long pro- 
gram, it can significantly decrease the time of execution for the 
entire program. Keep in mind that the symbol for integer division is 
the backslash (\), as opposed to the division symbol (/). 

Here is an example of integer division: 

10 FOR I = TO 5 

20 PRINT (I + 5)/I, (1 + 5AI. 1NTUI ♦ 5)/I) 
30 NE.i'T 

Running this program shows that the result of using the INT func- 
tion and integer division (\) will always be the same. 
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Modulus Arithmetic 

[MOD] 

The MOD operator gives the integer value that is the remainder 
when integer division is performed. Although this operator is not 
commonly used, it does come in handy for some applications. 

For example, suppose you had $100 and wanted to buy as many 
widgets as possible at $17 each. Integer division would tell you how 
many you could buy with this amount of money, but the MOD opera- 
tor would tell you how much money you would have left over. MOD is 
an operator rather than a function. The distinction between the two 
terms operator and function has to do with the syntax of how they are 
written in MBASIC. 

The syntax for using the MOD operator is A MOD B, where A and 
B are numbers. 

tO PRINT 7 HOD 4 
20 PRINT 14 HOD 3 



3 
2 
0* 



Working with Loops 

[FOR/NEXT] 

This section introduces one of MBASIC's more powerful pro- 
gramming tools, the FOR/NEXT loop. So far you have used two 
methods of ending a loop: dummy data and a counter. Now let's take 
a look at a third method: the FOR/NEXT loop. 

The FOR/NEXT loop allows you to automatically perform a given 
task a specified number of times. Enter and run the following: 

10 FOR A=l TO 10 
20 PRINT A; 
30 NEXT A 
40 END 



RUN 

1 2 3 4 5 6 7 8 9 10 
Ck 
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The FOR and NEXT statements provide a very convenient way of 
setting up a loop. The variable of the FOR statement, in this case A, 
is referred to as the counter. The counter of the FOR statement is 
incremented from an initial value until it reaches a final value. In 
this case, its initial value is set at 1 and its final value at 10 in line 10. 
Line 20 prints the current value of the counter A. Line 30 increments 
A by 1 and then jumps back to line 20 and repeats this looping pro- 
cess until A becomes 11, at which point line 40 is executed. 

Notice the indentation of the previous example in line 20. This is 
common practice and a good habit for you to get into now. In all of 
your FOR/NEXT loops, indent the lines that occur between the FOR 
and the NEXT, regardless of how many lines there are. We will use 
this procedure throughout the text. 

Here is how MBASIC actually executes our sample FOR/NEXT 
loop: 

10 A = i 

11 IF A > 10 THEN 40 
20 PRINT A 

30 A = A+l: GOTO 11 
40 END 

Now let's look at a second example, which shows that you are not 
restricted to printing out the counter within the loop. Your program 
may perform any function that you wish. 

10 FOR A * 1 TO 10 

20 PRINT B; 

30 B = B + 3 
40 NF*T A 



RUN 

3 6 9 12 15 18 21 24 27 

01: 



You are not restricted to incrementing your counter by 1. If you 
wish your increment to be something other than 1, you must add a 
STEP statement to the line containing the FOR statement. If you do 
not declare your step value, it is always assumed to be +1. 

10 FOR B = -15 TO 25 STEP 5 
20 PRINT B: 
30 NEXT B 
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RUN 

-15 -10 -5 5 10 15 20 25 
Ok 



All values in the FOR/NEXT loop (counter, upper and lower 
bounds, and the step size) must be integer or single precision. In this 
example, the STEP equals 5. Notice also that the counter starts at 
—15. The counter may start at any positive or negative value that can 
be written with a single-precision number. You may also increment 
your counter in a negative direction. Any time that you use a negative 
STEP, the term STEP must be present, even if you want it to be — 1. 

10 PRINT 

20 FOR C = 10 TO 5 STEP -.5 
30 PRINT C; 
40 NEXT C 



10 
0k 



9.5 ? 8.5 8 7.5 7 6.5 6 5.5 5 



Of course, you can use FOR/NEXT loops with any operation 
including string operations. Notice that in this first example, the 
counter is used as the argument for the TAB function to create a set 
of descending HELLO stairs. 

10 FOR X = 1 TO 5 

20 PRINT TABU); "HELLO" 

30 NEXT X 



RUN 

HELLO 
HELLO 
HELLO 
HELLO 
HELLO 

0k 



One of the more natural uses of the FOR/NEXT loop is to control 
the reading of data using the counter method. The FOR/NEXT loop 
has the termination of the loop built in. Enter and run the 
example: 



10 READ COUNT 

20 FOR X = 1 TO COUNT 

30 READ A$ 

40 PRINT A*;" "; 

50 NEXT X 

60 DATA 5 

70 DATA "PEG" , "SAM" , "LARRY", "BRENDA" . "MIKE" 
RUN 

PEG SAM LARRY BRENDA MIKE 
Ok 

PATTERNS 

Although this next example is not very useful in application pro- 
gramming, it is very helpful in aiding you to better understand FOR/ 
NEXT loops. You will be using FOR/NEXT loops in many programs 
you write in the future. Follow the steps through carefully so that you 
understand why the output is in the position it is in, and why the 
second FOR/NEXT loop is necessary. 

10 FOR X = 1 TO 5 

20 PRINT TAB(X);"**";TABU2 - X);"*** 
30 NEXT X 

40 PRINT TAB(6);°*x" 

50 FOR X = 5 TO 1 STEP -1 

60 PRINT TAB(X);"**";TABU2 - X){"W 

70 NEXT X 

RUN 

XX X* 
XX XX 

XX XX 
XX XX 
XX XX 
XX 

xxsx 

XX XX 
XX XX 

XX XX 

0k 

You see that if we try to complete this pattern with only one FOR/ 
NEXT loop, when the cursor gets to the lower half of the X pattern, 
it would print the right leg of the X and then attempt to print the left 
leg on the same line. Since the left leg has smaller column values 
than the right leg, this would not be possible. Consequently, we need 
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the second FOR/NEXT loop (lines 50 through 70) in order to print 
the lower-left leg of the X before the lower-right leg. 

The key point is that in line 20 the argument for the first TAB 
function, (X), cannot be greater than the argument, (12— X), of the 
second TAB function. This would also hold true if the TAB functions 
were in different lines and there were no carriage return printed 
between the functions. 

An interesting way to get around this problem is to combine the 
FOR/NEXT loop with an IF/THEN/ELSE statement, as follows: 

10 FOR X = 1 TO 11 

20 IF X<=5 THEN PRINT TAB(X) ; "»»";T/»< 12-X); "**■ 
ELSE IF X=6 THEN PRINT TAB16) "*«" 
ELSE PRINT TAB< 12-X) | ? TAB« X) J "»*" 

30 NEXT X 
RUN 

** ** 

*R «* 
** S* 

s* W 
**** 
** 

*S*I! 

XX XX 

XX XX 
XX XX 
XX XX 

ot 

Notice that line 20 takes up three lines and is typed in by pressing 
LINEFEED at the end of the first two lines. 

NESTED FOR/ NEXT LOOPS 

FOR/NEXT loops may also be nested one inside the other. Enter 
and run the following problem: 

10 PRINT "-=* COUNT DOWN *=-" 
20 FOR X = 10 TO 1 STEP -1 
30 PRINT X 
40 NEXT X 

50 PRINT "-=* BLAST OFF *=-■ 
RIM 

-=* COUNT DOWN *=- 
10 
9 
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8 
J 
6 
5 
4 



-=* BLAST OFF *=- 
Ok 

The program ran extremely fast— too fast even for NASA. Let's 
slow it down by using a nested loop. Add line 35: 

35 FOR Y = 1 TO 500-.NEXT V 

Run the program again and notice how much slower the count- 
down goes. The reason is that the line you added causes the computer 
to count from 1 to 500 without any printout between each of the suc- 
cessive numbers that are printed. You can experiment with this and 
use the editor to change the value 500 to some other value in order to 
make the countdown proceed at a pace that is satisfactory. 

The difficulty that some programmers have when starting with 
nested FOR/NEXT loops is illustrated in the following figures. Fig- 
ure 7-1 illustrates a correct nesting of FOR/NEXT loops. Notice that 




3 



2 




10 FOR X = 1 TO A 



50 



FOR Y = 1 TO B 



80 



NEXT Y 



100 NEXT X 



Figure 7-1. 

Correctly nested loop 
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the lines connecting the FOR X to the NEXT X and the FOR Y to 
the NEXT Y do not cross. Figure 7-2 shows the wrong way. It shows 
that the lines connecting the FOR X to the NEXT X and the FOR Y 
to the NEXT Y cross incorrectly. You must be careful when you nest 
the loops to be sure that one is completely inside the other. Regardless 
of the depth to which you nest the loops, be sure the lines connecting 
the FOR/NEXT do not cross. If you create crossing loops, you will get 
a "NEXT without FOR" error message. 



PATTERNS WITH NESTED LOOPS 

Let's return for a moment to our patterns, this time with nested 
loops. In the next two examples, notice not only the general shape of 
the output, but also the numbers that are printed: 

10 FOR A=l TO 5 
20 FOR B=l TO A 
30 PRINT B; 
40 NEXT B 
50 PRINT 
60 NEXT ^ 



10 FOR X = 1 TO A 



i 



50 ! FOR Y = 1 TO B 
1/ 

/! : 

80 ! ^NEXT X 

I 
\ 
\ 
\ 

\ 

I 

100 NEXT Y 



Figure 7-2. 
Incorrectly nested loop 
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l 

l 2 

1 2 3 
12 3 4 
1 2 3 4 5 
Ok 

When you come across a new idea like this in a program, a good 
procedure is to trace this program through with pencil and paper. 
Trace here means that you are to simulate the computer and deter- 
mine the value for each variable of each line in the program. Usually, 
it only takes two or three passes through the program to see what is 
happening. 

In the preceding example, on the first pass A = 1, so the inner 
loop is 

20 FOR B = 1 TO 1 

40 NEXT B 
50 PRINT 

On the second pass A = 2, and the inner loop is 

20 FOR B = 1 TO 2 ^^^^^^ 
30 PRINT B; Output: 1 2 

40 NEXT B 
50 PRINT 

On the third pass A = 3, so that the inner loop is 
20 FOR B = 1 TO 3 

30 PRINT B; Output: 1 2 3 

40 NEXT B 
50 PRINT 

Continue the trace until you are satisfied with the pattern. 

Let's use the same technique, the trace, to check the output of this 
program, as follows: 

10 FOR A = 1 TO 5 
20 FOR B = 1 TO A 
30 PRINT A; 

40 NEXT B 
50 PRINT 
60 NEXT A 
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l 

2 
3 
4 

5 
Ok 



On the first pass A = 1, so that the inner loop is 
20 FOR E = 1 TO 1 

30 PRINT A; Output: 1 

40 NEXT B 
50 PRINT 

On the second pass A = 2, so that the inner loop is 
20 FOR B = 1 TO 2 

30 PRINT A; Output: 2 2 

40 NEXT B 
50 PRINT 

On the third pass A = 3, so that the inner loop is 
20 FOR B = 1 TO 3 

30 PRINT A; Output: 3 3 3 

40 NEXT B 
50 PRINT 

This procedure of tracing a program can be very useful with 
short programs or with sections of longer programs, either to help 
you understand the program better or to find errors. 

Now let's try another type of loop. 



WHILE/WEND Loops 

[WHILE/WEND] 

The WHILE/WEND loop is similar to the FOR/NEXT loop 
except that instead of repeating the loop a fixed number of times, it 
repeats the loop as long as a specified condition is true. (WEND 
stands for "While END".) You will find the WHILE/WEND loop 
very useful for controlling the reading of data using the dummy data 
method. Note that there is no variable after WEND. If you forget to 



116 The MBASIC Handbook 



terminate your WHILE loop with WEND, you will receive the error 
message, "WHILE without WEND". 

In a WHILE/WEND loop, you must set an initial condition before 
the loop is entered. This is usually done through either an assignment 
statement or a READ statement, as shown in the following: 



10 A = 1 : B = 1 
20 WHILE A<200 
30 PRINT A; 
40 B = B M 
50 A = B * 2 
60 WEND 

m 

1 4 9 16 25 36 49 64 81 100 121 144 169 196 
0k 

In this example, each time the loop returns to line 20, A is tested to 
see that it is still less than 200. Line 40 increases B by 1 and line 50 
recalculates A, using the new value of B. Since B continues to 
increase, A will eventually be greater than 200, and the loop will 
terminate. If the WHILE condition is never exceeded (A>200 in this 
case), you will be in an endless loop. 

Notice that we have used the same indentation style as with the 
FOR/NEXT loops. 

The following program illustrates the steps that MBASIC is actu- 
ally performing while executing the WHILE/WEND loop of the pre- 
vious example: 

10 A = 1 : B = 1 

20 IF A> = 200 THEN 70 

30 PRINT A 

40 B = B + 1 

50 A = B * 2 

60 GOTO 20 

70 END 



In the following example, notice that the first data item is read 
before the WHILE loop is entered. The loop will continue to read 
data and print it until the string DONE is encountered, and then the 
loop will be terminated. 



Working With Variables and Loops 117 



10 READ A» 
20 WHILE A$O"D0NE" 
30 PRINT A*;" "; 
40 READ A$ 
50 WEND 

60 DATA "SAH" , "FRANK" , "MARY" , "SUSAN" . "DONE" 



RUN 

SAM FRANK MARY SUSAN 
01 



NESTED WHILE/WEND LOOPS 

Just as you can nest FOR/NEXT loops, you may also nest 
WHILE/WEND loops: 

10 A = 1 

20 WHILE A< = 5 

25 B = 1 

30 WHILE B< = A 

40 PRINT 

45 8 = B + 1 

50 WEND 

55 A = A + 1 

60 PRINT 

70 WENT 

RUN 
i 

** 

KMf 

xxsx* 
Ok 

As a final example of loop nesting, enter and run the following, 
which has a FOR/NEXT loop nested within a WHILE/WEND loop: 

10 READ B 

15 PRINT "BAR GRAPH" 

20 WHILE B0-J 

25 PRINT "!"; 

35 FOR M TO B 

40 PRINT 

45 NEXT 

50 PRINT USING "(##)";B 

S5 READ B 

60 WE» 

65 PRINT "!----!- — !- — !- — !" 
70 DATA 13,9,18,11,15,-1 
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BAR GRAPH 
!*****«»**( 9) 

!****KK*****(11) 
!*K*KIS*K*t**)M*S*( 15) 

I--!---!—-! ! 

01 

Now that we have gone through some simple examples of the 
statements and functions introduced in this chapter, let's move on to 
some more practical applications. 



TUTORIALS 



Tutorial 7-1: Expense Account 

Our first application determines the expenses for a business trip 
of any given number of days: 

10 REM - -=*EXPENSE.C7*=- 
20 REM - Expense account totals 

30 REM - 11/21/82 
40 REM - 

100 TRAVEL = 0: MEALS = 0: LODGING = 'Zero totals for each area 
110 INPUT "Enter number of days for expense account: " ; NOEiAYS 
120 FOR DAY = 1 TO N0DAYS 'Loop through each day 

130 PRINT 

140 PRINT "Enter expenses for day";DAY 

150 INPUT " Travel costs: °;C0ST 

160 TRAVEL = TRAVEL + COST 'Add up travel costs 

170 INPUT " Meals: ";C0ST 

180 MEALS = MEALS + COST 'Add up meal costs 

190 INPUT " Lodging: ";C0ST 

200 LODGING = LODGING + COST 'Add up lodging costs 

210 NEXT DAY 

220 PRINT 'Print totals for each area 

230 PRINT " -=*< TOTALS >*=-' 
240 PRINT " Travel Meals Lodging" 

250 PRINT " " 

260 PRINT USING "mtt.tt "; TRAVEL, MEALS, LODGING 

270 PRINT 'Print grand total 

230 PRINT USING "Total expenses: **$*»#»*, .«"; TRAVEL + MEALS + LODGING 

290 END 
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In line 100 the three expense categories covered in this program 
(travel, meals, and lodging) are initialized to 0. In line 110, the 
number of days covered by the trip is entered using the INPUT 
statement. The FOR/NEXT loop, lines 120-210, counts from 1 to the 
number of days (NO DAYS) entered in line 110. The loop then asks 
you to enter the totals for each day for each of the three categories. 
Each category is totaled and the results printed out in line 260. In 
line 280 the total expenses, which are the sum of the three categories, 
are then printed. 

Enter number of days for expense account: ? 3 

Enter expenses for day 1 
Travel costs: ? 55.25 
teals: ? 17.39 
Lodging ? 

Enter expenses for day 2 
Travel costs: ? 29.10 



Enter expenses for day 3 
Travel costs: ? 38.88 
Meals: ? 27.57 
Lodging: ? 71.85 

-=*< TOTALS >*=- 
Travel Heals Lodging 



123.23 64.96 143.70 

Total expenses: **x**$331.88 
Ot 



Tutorial 7-2: Payro'l with WHILE/WEND 



We return to our payroll problem, with only a couple of additional 
changes made to Tutorial 6-3: 



Meals: ? 
Lodging: 




10 REM - 
20 REM - 
30 REM - 



-=*PAYWH.C7*=- 
08/16/82 



100 DEFINT A-Z 
110 F0RMAT*="\ 
120 DASH* = "- 



\ ««###.##" 'Set print line format 
" 'Separates total line 
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(Tutorial 7-2: Continued) 

130 TOTAL.WAGES=0 "Initialize total wages 

140 READ EMP. NAME*, EMP. RATE! 'Get first data record 

150 WHILE EMP.NAMEtO"END" 'Check for end of data 

160 EMP. EARN !=EMP. RATE !*8 'Compute employee earnings 

170 L PRINT USING FORMAT* ; EMP . NAME$ ; EMP . EARN ! 

180 TOTAL . WAGES ! =T0TAL . WAGES ! +EMP . EARN ! 'Total employee wages 

190 READ EMP. NAME*, EMP. RATE! 'Get next data record 

200 WEND 

210 LPRINT DASH* 

220 LPRINT USING FORMAT*; "Total wages"; TOTAL. WAGES! 
230 El* 

240 REM - EMPLOYEE DATA **** 

250 DATA "Fred Slug", 4. 78 
260 DATA "Hilbert Clam", 5.01 
270 DATA "Sam Snail", 7. 43 
280 DATA "END",0 

First notice that the outputs are all LPRINT statements, with the 
result that output will go to the printer instead of to the screen. The 
major change, of course, is the use of the WHILE/WEND loop to 
read in the employee information. In line 140 the WHILE loop is 
initialized with the first employee's name and rate. The WHILE loop 
continues to read until the string END is encountered, which makes 
it convenient for you to add in additional employees without changing 
any of the other information in the program. To do this, add addi- 
tional employee names in the slots between the existing data 
statements. 

Fred Slug *38.24 
Hilbert Clam $40.08 
Sam Snail $59.44 

Total wages $137.76 



Tutorial 7-3: Payroll with FOR/ NEXT 



This is the same as the previous application, except that we have 
changed from a WHILE/WEND loop to a FOR/NEXT loop: 



10 REM - 
20 REM - 
30 REM - 
100 DEFINT A-7 
110 F0RMAT*="\ 

120 DASH* = " 

130 TOTAL. WAGES=0 



-=*PAYFN.C7»=- 
08/16/82 



\ **####.##" 'Set print line format 

" 'Separates total line 

'Initialize total wages 
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(Tutorial 7-3: Continued) 

140 READ ENP.COUNT 'Get number of employees 

150 FOR 1=1 TO ENP.COUNT 'Loop through all employees 

160 READ EMP.NAMEt.EMP.RATE! 'Get data record 

170 ENP. EARN ! =EMP. RATE ! *8 'Compute employee earnings 

180 LPRINT USING FORMAT* ; EMP . NAME* ; EMP . EARN ! 

190 TOTAL . WAGES ! = TOTAL . WAGES ! +EMP . EARN ! 'Total employee wages 

200 NEXT I 

210 LPRINT DASH* 

220 LPRINT USING FORMAT*; "Total wages"; TOTAL. WAGES! 
230 EM) 

240 REM - **** EMPLOYEE DATA *»** 

250 DATA 3 

260 DATA "Fred Slug", 4. 78 
270 DATA "Hilbert Clam", 5.01 
280 DATA "Sam Snail ",7.43 

Notice that in line 140, the employee count is read. If you wish to add 
additional employees, the only item to change (besides employee 
names and rates) in this program would be the data in line 250 to 
reflect the total number of employees. 



EXERCISES 

1. Write programs to generate the following patterns 
using FOR/NEXT loops: 

a. # b. * c. ** ** 

## *** ** ** 

### ***** **** 

#### ******* ** 

##### ********* ** 

** 
** 

a\ ** ** 

** ** 
** 
** ** 
** ** 
** ** 
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2. Write a program to generate the multiplication table up 
to 12X 12. The output should look like this: 





1 


2 


3 


4 


5 .... 


1 


1 


2 


3 


4 


5 


2 


2 


4 


6 


8 


10 


3 


3 


6 


9 


12 


15 















3. Write two FOR/NEXT timing loops, much like those in 
the "Blast-Off example. Each loop is to count from 1 to 
10,000, except that you should let one loop use an 
integer counter and the other loop use a single-precision 
counter. 

a. Use a stop watch or a watch with a second hand and 
determine the running time for each loop. 

b. What must the final value of each loop be if you 
want to time 5 seconds? 

4. Using double precision, rewrite Tutorial 6-1 so that you 
may enter a starting balance of $10,000 or greater. 
Notice the difference in time it takes to run the pro- 
gram using double-precision numbers. 

5. Enter and run the following program: 

10 DEFINT X 

20 PRINT "START" 

30 FOR X = 1 TO 100 STEP .4 

40 NEXT X 

50 PRINT "END" 

Explain what happens (or what does not happen). 




Introduction to Functions 



Statements: 


RANDOMIZE 


Functions: 


FIX, SQR, ATN, INT, SIN, LOG, 




ABS, COS, EXP, RND, TAN, SGN 



In Chapter 6 we introduced two functions, TAB and SPC. In this 
chapter, we will introduce several more. Many of these you will only 
use if you do programming with mathematics. But you will frequently 
use two of the functions, INT and RND, regardless of the type of 
programming you do. 

Functions are short programs built into MBASIC. Each is de- 
signed to do a specific task. They save you the trouble of having to 
write the code to perform this task. 

Let's start off with the INT function. 
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Changing Fractions to Integers 

[INT] 



The function INT is used to change a decimal fraction to an 
integer. To see how INT works, enter and run the following: 

10 PRINT "INT(l,67.)=":IMTii.67y 
20 PRINT "INT<-2.67>=":INT(-2.67i 

m 

I NT (1.67)= i 
INT i-2. 67 '=-3 
Ok 

The INT function always rounds off a decimal fraction to the next 
smallest whole number. The easiest way to see this is to look at the 
number line shown in Figure 8-1. 

As you go from left to right on the number line, the values 
increase. In the example, INT returned —3 because —3 is the next small- 
est integer value (that is, the next whole number to the left of —2.67). 
For the value 1.67 INT will return 1 because 1 is the next lowest 



The INT function can be used to round numbers to the nearest 
whole number, but in order to do this you have to modify the func- 
tion's argument. The modification is simple: just add .5 to the 
number. The following program illustrates this idea: 

10 FOR X = 1 TO 5 
20 READ NUMBER 
30 PRINT INT(NUMBER+.5.i: 

40 NEXT X 

50 DATA 3.71. 14.3. 6.55, -3.01. -8.68 

RUN 

4 14 7 -3 -? 
Ok 



integer. 



-2.67 1.67 



Lowest 
numbers 




3 



Highest 
numbers 



Figure 8-1. 

Number line 
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Generating Random Numbers 

[RND, RANDOMIZE] 

The random number generator is useful in many applications. 
Besides the more obvious use of generating numbers for games of 
chance, it is also useful in generating large quantities of data to test 
business or simulation programs. It can also be used to generate test 
data for string applications. We will demonstrate these uses of RND 
shortly. 

The RND function may be used to generate random numbers in 
any range that you choose. Used in its standard format, it produces a 
six-place decimal between and 1, but by properly applying the 
mathematical operators, you can produce random numbers in any 
range you choose. 

The RANDOMIZE statement is used to "seed" the random 
number generator. The random number seed determines where in 
the random number table your first random number will be found. 
Each time a program comes to the RANDOMIZE statement, it will 
stop and present you with the message Random number seed 
(—32768 to 32767). If you do not give the random number generator 
a different seed, each time the program is run, the same set of 
numbers will be produced. RANDOMIZE is used only in conjunction 
with the RND function and usually does not appear more than once 
in a program. 

Enter and run the following: 

10 RANDOM I ZE 
20 FOR X=l TO 5 
30 PRINT RND: 
40 NEXT X 

RUN 

Randot nuiber seed i -32768 to 32767)? 23 
.557366 .0265407 .463432 .439325 .268642 
0k 

If you ran this problem again, using the same seed, 23, you would get 
the same set of random numbers. If you used another seed, you would 
get another set of random numbers. 

Ran** number seed i-32768 to 32767)-' 9876 
.6-37145 . 326897 . 0591093 .173715 . 398278 
C(fc 



In the following example notice that in line 40 we can control the 
position of a decimal point by multiplying our random number A by 
a multiple of 10: 

10 RANDOMIZE 
20 FOR X=l TO 5 
30 A=RND 

40 PRINT USING'**. ****** ";A:10*A;10i*A: 
50 PRINT INT(10*A; 
60 NEXT X 

RUN 

ftandon number seeo (-32768 to 32767)' -3400 

0.365646 3.656460 36.564600 3 

0.758424 7.584240 75.842400 7 

0.145781 1.457810 14.578100 1 

0.06856? 0.685688 6.856880 

0.772322 7.723220 77.232200 7 
0k 

In line 50 we find the next smallest integer value of 10 times our 
random number. The highest value possible for this is 9, since the 
largest random number that is produced by the RND function is 
+.999999, and multiplying this by 10 merely moves the decimal. 
When you use the INT function with positive numbers, it gets rid of 
everything to the right of the decimal point. 

Now suppose you wish to produce a set of random numbers in a 
specific range. The first thing to decide is how many numbers there 
are in that range. In the next example, let's produce 20 numbers 
whose range can be to 100. Because we want 20 numbers produced, 
we will set the counter of our FOR/NEXT loop to range from 1 to 20: 

10 RANDOMIZE 
20 FOR X=l TO 20 
30 A=INT(101«fiND) 
40 PRINT A: 
50 NEXT X 



m 

Randoi number seed (-32768 to 32767)? 841 

68 75 18 35 38 50 3 35 33 4 50 55 27 3 58 13 59 4 15 56 
0k 

Notice that in line 30 we multiply our number by 101 and then 
take the integer of this expression. This is because the range of to 
100 is 101 numbers. Line 40 prints out the results. 
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Let's try this again and produce a set of 20 numbers in the range 
from 15 to 40. Our range covers 26 possible numbers: 

10 RANDOMIZE 

20 FOR X = 1 TO 20 

30 A = INT(26*RND)+15 

40 PRINT A; 

50 NEXT X 

RUN 

Ran** number seed (-32768 to 32767)? 9100 

18 34 34 40 28 U 27 17 26 24 21 40 16 20 18 1? 27 24 33 330k 

In line 30 we multiply the random number function by 26, but we 
want the output to start at 15, not 0. In order to correct for this, we 
add 15 to the value produced by the INT function. 

As a final example, let's choose our range of numbers from —20 to 
+20. There are 41 numbers in the range. To correct for this range, we 
subtract 20 from the result of the INT functions, as follows: 

10 RANDOMIZE 

20 FOR X = 1 TO 20 

30 A = INT(41*RND) - 20 

40 PRINT A: 

50 NEXT X 



Ran** minder seed (-32768 to 32767)? -21325 

-20 12 -14 15 12 -8 -1 15 -10 7 -17 15 -4 -7 -11 17 17 -17 20 * 
Ok 

To choose a set of random numbers in a specified range, use the 
following formula: 

INT((8-A+1)*RND)+A 

A is the lower value of the range and B the upper value [A<= 
result<=B]. It works with any combination of positive or negative 
integers. If your range does not need to be integers, you can leave the 
INT function out. 

Suppose X were to be an integer greater than or equal to —5 and 
less than or equal to 25. B— A+l is 31, so the resulting equation is 
INT(31*RND)-5. 

RANDOMIZE WITH AN ARGUMENT 

You can also use the RANDOMIZE statement with an argument 
to prevent MBASIC from asking the seed question. For example, the 
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command RANDOMIZE 10112 is the same as the RANDOMIZE 
command if the user inputs the number 10112 to the seed question. 

Using the Math Functions 

The following section offers some direct examples of the more 
specialized mathematical functions. You may skip these sections 
without losing any programming skills you will need for general 
applications. 

FINDING ABSOLUTE VALUE 

[ABS] 

The ABS function returns the absolute value (positive value) of 
the expression enclosed in the parentheses. 

10 PRINT ABS (-8; 
20 PRINT ABS 18*1-3)) 

Ml 

8 

24 
Ok 

USING THE FIX FUNCTION 

[FIX] 

The function FIX is similar to the INT function discussed earlier, 
except that it simply truncates the fractional part of either a positive 
or negative number. 

10 PRINT "INT(1.67;=":INT(1.67.> 
20 PRINT "FIX (1.67)=": FIX (1.67; 
30 PRINT "INT(-2,&7)=";INT(-2.67J 
40 PRINT "FIX(-2.67)=";FIX(-2.67.< 

am 
mm 

INT (1.67)= i 
FIX(1.67)= 1 
INT(-2.67.i=-3 
FlX(-2.67i=-2 
0k 

The output from lines 10 and 20 is exactly the same; the functions 
INT and FIX always return the same value for the same positive 
number. The distinction between the two becomes apparent if you 
look at the output from lines 30 and 40, in which the INT function 
returns a -3 and the FIX function returns a -2. The only distinction 
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between INT and FIX is in the way that they deal with negative 
numbers. 

FINDING THE SQUARE ROOT 

[SQR] 

The SQR function returns the square root of a number. It is easier 
to use the SQR function than to raise a number to the power of .5 (for 
example, x A .5), and the SQR function takes the same amount of time 
to run as raising a number to the power of .5. 

Enter and run the following example: 

10 FOR X = 1 TO 5 
20 PRINT X. SQR(X) 
30 NEXT 

RUN 



1 1 

2 1.41421 

3 1.73205 

4 2 

5 2.23607 
Ok 



USING THE TRIGONOMETRIC FUNCTIONS 

[SIN, COS, TAN] 

The trigonometric functions in MBASIC use angles in radians. 
The formula to convert degrees to radians is RAD=7rDEG/180. 

The following example shows how to find the sine, cosine, and 
tangent of an angle: 

10 PI = 3.14159 

20 PRINT "RADIANS DEGREES S1N(X; COS'Xj TANtXi" 

30 PRINT " 

40 FOR X = TO PI/2 STEP' .2 

50 PRINT X.X*180/PI,SIN(X),C0SiX).TAW(X.i 

60 NEXT X 



RUN 

RADIANS 


DEGREES 


SINi.X.i 


cosaj 


TANU.i 











1 





■2 


11.4592 


.1986.69 


.980067 


.20271 


.4 


22.9183 


.389418 


.921061 


.422793 


.6 


34.3775 


.564643 


.825336 


.684137 


.8 


45.8367 


.717356 


.696707 


1.02964 


1 


57.2958 


.841471 


.540302 


1.55741 


1.2 


68.755 


.932039 


.362358 


2.57215 


1.4 


80.2142 


.98545 


. 169967 


5.79789 


0k 
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Notice that the angle is in radians. The step size and range to 
chart may be varied in line 40 to extend your table to any number 
that you wish. In the MBASIC interpreter, the precision for the sine, 
cosine, and tangent, as well as other functions, is limited to single 
precision. 



THE LOG AND EXP FUNCTIONS 

[LOG, EXP] 

The LOG function in MBASIC finds the natural log (base e) of a 
number. The function EXP gives e raised to the power specified. In 
order to get an idea of the values produced by these two functions, 
enter and run the following programs: 

10 FOR X = 10 TO 100 STEP 10 
20 PRINT X;L0G(X) 
30 NEXT X 







10 


2.30259 


20 


2.99573 


30 


3.4012 


40 


3.68888 


50 


3.91202 


60 


4.09435 


70 


4.2485 


80 


4.38203 


90 


4.49981 


100 


4.60517 


Ok 





10 FOR X = TO 5 
20 PRINT X;EXP(X) 
30 NEXT X 



1 



2 
3 
4 
5 
0k 



2.71828 
7.38906 
20.0855 
54.5982 
148.413 
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THE SGN Function 

[SGN] 

The SGN function lets you determine the sign of a number. It 
always returns either —1, 0, or 1, depending on whether the argu- 
ment is negative, 0, or positive. For example: 

iO FOR I = i TO 5 
20 READ N 

so print mm* 

40 NEXT I 

50 DATA 12, -3. -3000. 0. .132 

1 
-1 
-! 



! 

Oi 

Now that we have tried each of these functions in some simple 
examples, let's move on to the applications. 



TUTORIALS 



Tutorial 8-1: Change from a Purchase 

Our first application program determines the change you would 
receive from a purchase. It first determines the total change you are 
due and then lists the number of bills and coins you would receive. 
The maximum amount of change allowed from this program is 
$99.99. 

10 REM - -=*CHANGE.C8*=- 

20 REM - Coapute change for given purchase 

30 REM - 11/21/32 

40 REM - 

100 INPUT "Enter purchase price $", PRICE 
110 INPUT "Enter cash payment $". PAYMENT 

120 IF PRICE <= PAYMENT THEN 150 Check if they paid enough 

130 PRINT: PRINT "Cash paynent must be greater or equal to price." 



(Tutorial 8-1: Continued) 
140 PRINT:G0T0 100 

150 CHANGE = INT (100* (PAYMENT - PRICE) + .5; Compute change * 100 
160 PRINT:PRINT "Change is $":CHANGE/100 

170 IF CHANGE <= 9999 THEN 200 Can t change sore than $99.99 

180 PRINT "Sorry, can't change that much money." 
190 PRINT: GOTO 100 
200 FOR I = 1 TO 10 

210 READ COIN$,VALUE Read coin name and value 

220 N = I NT (CHANGE/ VALUE) Compute number for this coin 

230 IF N > THEN PRINT N;C0IN$:°(s)" Don't print if N = 

240 CHANGE = CHANGE - N*VALUE Compute remaining change 

250 NEXT I 
260 REM - 

270 REM - Coin (or bill) name and value data 
280 REM - 

290 DATA Fifty dollar bill.5000 
300 DATA Twenty dollar bill.2000 
310 DATA Ten dollar bill. 1000 
320 DATA Five dollar bill. 500 

330 DATA One dollar bill. 100 
340 DATA Half dollar,5u 
350 DATA Quarter, 25 
360 DATA Dime, 10 
370 DATA Nickel, 5 
380 DATA Penny, 1 

Now let's take a look at some of the specifics in this program. 
Lines 120 through 140 check your cash payment to see that it is 
greater than the price of the item. If it is not greater or equal, a 
message is printed and the program returns to line 100 for you to 
enter new amounts. In line 150 the INT function is used. Remember 
that this truncates the value to the next smallest whole number; in 
other words, .5 is added to round correctly to the nearest penny. The 
loop in lines 200 through 250 reads the data, which includes the bill 
or coin and its value. The number of each that you are to receive in 
change is determined, and then the loop goes on to read the next 
value until all values are read down through the last data item, 
which is pennies. 

m 

Enter purchase price $ 47.45 
Enter cash payment $ 60.00 

Change is $ 12.55 

1 Ten dollar bill(s) 

2 One dollar bill(s) 
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(Tutorial 8-1: Continued) 

1 Half dollar (5) 
1 Nickel (s) 

Enter purchase price $ 122.66 

Enter cash payment * 200.00 

Change is t 77.34 
1 Fifty dollar bitlts? 
1 Twenty dollar bill(s) 

1 Five dollar bill(s) 

2 One dollar bill(s) 
1 Quarter(s) 

1 Nickel (s.i 
4 Penny (si 
01 



Tutorial 8-2: Craps 

Our next application simulates a crap game. It uses a variety of 
the MBASIC instructions developed up to this point. You need to 
know the rules of craps to play the game. 

10 REM - -=CRAPS.C8*=- 
20 REM - Simulated Craps Game 

30 REM - 11/25/82 
40 REM - 

100 DEFINT A-2 Use all integers 

110 RANDOMIZE Set random seed 

120 PRINT: INPUT "How much cash do you have (Whole bills only)? ".CASH 
130 PLAY$ = "Y" Game ends when PLAY* = "N" 

140 WHILE PLAY* = "Y" 

150 PRINT;1NPUT "What would you like to bet? ".BET 

160 IF BET <= CASH THEN IW Check BET 

170 PRINT "Look, vou only have *";CASH 

180 GOTO 150 

190 DIE1 = INT(6«RNDJ + 1 : DIE2 = INTt6*RND) + 1 Compute 1st roll 
200 POINT = DIE1 + BIE2 

210 PRINT "Your first roll is";DIEl;"+";DIE2;"=";P0INT 
220 IF POINT = 7 OR POINT = 11 THEN 380 'Won on l'st roll 

230 IF POINT = 2 OR POINT = 3 OR POINT = 12 THEN 440 Lost on 1st roll 
240 ' 

250 ' The first roll did not win or lose, roll for the POINT 

260 ' 

270 PRINT POINT; "is your point" 

280 ROLL = Initialize ROLL for loop 
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(Tutorial 8-2: Continued) 

290 WHILE ROLL <> POINT AND ROLL <> 7 

300 DIE1 = INT(6*RNB} + 1 : DIE2 = INT(6*RND.l + i 'Cowute next roll 
310 ROLL = DIE1 + DIE2 

320 PRINT 'Your roll is , :DIEl;"+":DIE2;"=":ROLL 

330 MEND 

340 IF ROLL = 7 THEN 440 ROLL = 7 for lose, else fall into wis 

350 ' 

360 ' Game won, print results 

370 ' 

380 PRINT "You won!"; 

390 CASH = CASH + BET Add bet 

400 GOTO 490 

410 ' 

420 ' Gaae lost, print results 
430 

440 PRINT "Too bad, you lose.": 

450 CASH = CASH - BET Subtract bet 

460 

470 Ask to play again 
480 ' 

490 PRINT" You now have »";CASH;"in cash." 

500 IF CASH > THEN 540 

510 PRINT "Sorry pal, you ran out of money." 

520 PLAY* = "N* 

530 GOTO 550 

540 INPUT "Mould you like to play again (Y/N)":PLAY* 
550 WEND 

560 PRINT:PRINT "Game ends, you have *";CASH 

In line 100 we defined all the variables, A through Z, to be inte- 
gers. This is a useful habit to get into, particularly if you are writing 
long programs or if your computer has memory limitations. It takes 
fewer bytes of memory to store an integer than it does to store a 
single- or double-precision number. If you use this procedure, how- 
ever, keep in mind that to use single precision or double precision in 
the program, the variable will have to be declared with the appro- 
priate variable (such as ! or #) type character. 

Notice that lines 140 through 550 form one large WHILE/ 
WEND loop. This loop is initialized in line 130 with PLAYS set 
equal to Y. Lines 160 through 180 verify that your bet is less than or 
equal to the cash that you have available. Lines 190 through 200 
determine your point for the first roll of the dice. 

Notice that the INT function is used in this program, even 
though all the variables have been defined in line 100 to be integers. 
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The reason is that we want these random numbers to be truncated 
rather than rounded off. 

Lines 220 and 230 determine whether the first roll of the dice 
was a winner (7 or 11) or a loser (2, 3, or 12). If neither of these 
situations occurs, the program proceeds, and you roll the dice again 
to determine whether or not you made your point. Line 290 checks to 
see if either your point was made or you rolled a 7. In either case, the 
program jumps to line 340, where it checks to see if a 7 was rolled; if 
so, you lose and it jumps to line 440 and subtracts your bet from your 
cash on hand. If you have not lost, the program determines your new 
cash balance. In line 490 your balance is printed, and at line 500, if 
you still have cash remaining, the program proceeds to 540, where 
you are asked if you would like to continue the game. 

RUN 

Randoi nunber seed i -32768 to 32767.*"' 4321 
how mich cash do you have (Whole bills only)? 5 

What would you like to bet? 2 
Your first roll is 1 + 4 = 5 
5 is your point 
Your roll is 3 + 3 = 6 
Your roll is 4 + 4 = 8 
Your roll is 4 ♦ 6 = 19 
tour roll is 4 + 6 = 10 
Your roll is 1 + 3 = 4 
tour roll is 3 + 6 = 9 
Your roll is 3 + 3 = 6 
Your roll is 1 + 2 = 3 
Your roll is 4 + 5 = 9 
Your roll is 5 + 4 = 9 
Your roll is 6 + 1 = 7 

Too bad. you lose. You now have $ 3 in cash. 
Mould you like to play again (V/N>? Y 

Uhat would you like to bet? 2 
Your first roll is 5 + 6 = 11 
You won! You now have $ 5 in cash. 
Would you like to play again (Y/N)? I 

Uhat would you like to bet? 5 
Your first roll is 6 + 2 = 8 
8 is your point 
Your roll is 2 + 2 = 4 
Your roll is 5 ♦ 2 = 7 



(Tutorial 8-2: Continued) 



Too bao. you lose. You now have $ m cash. 
Sorry pal, you ran out of tone v. 

Gane ends, you have $ 
Ok 



Tutorial 8-3: Prime Factors 

This program determines whether or not a number is prime. A 
prime number is one that is divisible only by itself and 1. For exam- 
ple, 1, 2, 3, 5, and 7 are the first five prime numbers. 

10 REM -=*PRIME.C8*=- 

20 REM Print prime factors of a nuaber 

30 REM - 11/21/82 

40 REM - 

100 INPUT "Enter an integer: \N 

110 PRINT:PRINT "Prine factors of":N:"are:" 

120 A = N: FACTOR = 2 Initialize 

130 WHILE FACTOR <= SQRIAj 'Only one factor can be > Sflfi(A) 

140 WHILE A/FACTOR = INT(A/FACT0R> Check for factor 

150 PRINT FACTOR 'Found a factor. Print it 

160 A = A/FACTOR 'Factor it out 

170 WEND 

180 FACTOR = FACTOR + 1 Try another nu«ber 

190 WEND 

200 IF A <> 1 AND AON THEN PRINT A Print last factor if any 
210 IF A = N THEN PRINT "None. ";N; "is priie." 



Let's take a look at some of the features of this program. In line 
120 we set the variable A equal to the number entered. The first 
number we divide by is our variable, FACTOR, which is set equal to 
2. FACTOR also initializes our WHILE loop, which starts in line 
130. 

The rule we use to determine whether or not the number is prime 
is stated in line 130. We will try to divide N by every number from 2 
to the square root of N. For instance, if we were testing the number 
25, we would divide by 2, 3, 4, and 5. If none of these divides in 
evenly, we know the number is prime. In line 140 we determine 
whether or not FACTOR divides evenly into N by checking to see if 
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N divided by FACTOR is equal to the INT of N divided by FAC- 
TOR. If they are equal, we have found a factor, and it is printed in 
line 150. 

If the first number we try does not divide in evenly, the factor to 
be checked is incremented by 1 and the program returns to line 140 
to try the next FACTOR. In line 210 we check to see if A is equal to 
N. If it is, no factor has been found and you are told that N is prime. 

RUN 

Enter an integer: 109 

Prime factors of 109 are: 
None. 109 is prime. 
0k 
RUN 

Enter an integer: 110 

Prime factors of 110 are: 

2 

5 

11 
0k 
RUN 

Enter an integer: 111 

Prime factors of 111 are: 
3 

37 
0k 



Tutorial 8-4: Sine Wave 

This program prints a sine curve. 



10 REM - -=*SINE.C8*=- 

20 REM - Print a sine wave curve 

30 REM - 11/21/82 

40 REM - 

100 A=20 Wave amplitude 

110 E=.4 Step sue 

120 FOR X = 1 TO 2*A + 1 

130 PRINT Print Y axis 

140 NEXT X 

150 PRINT " Y axis' 

160 Y0 = ft + 1 Tab location of X axis 

170 FOR X = TO 4*3.14 STEP E 
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(Tutorial 8-U: Continued) 

180 Y = YO ♦ FIX(A«SiN(X) + .5) Co»ute tab location of Point 
190 IF Y > YO THEN PRINT TAB(Y0);"!';TAB(Y);"** Y is right of X axis 
200 IF Y < YO THEN PRINT TAB(Y); ■«*;TAB(Y0);"i* Y is left of X axis 
210 IF Y = Y0 THEN PRINT TAB(Y):**" Y is on X axis 

220 NEXT X 

230 PRINT TAB(Y0 - 3);'X axis' 

In lines 100 and 110, the variables for the amplitude of the wave 
and the step size have been set. It is convenient to set variables of this 
type at the beginning of your program so that if you wish to change 
them for successive runs of the program, they are easy to find and 
you only have to change them in one place. 

Keep in mind that when using the TAB function, the leftmost 
character must be printed first. Lines 190 through 210 make the 
decision about whether or not to print the asterisk for the sine curve 
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or the vertical bar for the x-axis depending on which has the smaller 
column value. 



V axis 



* 

X axis 



140 The MBASIC Handbook 



EXERCISES 



L Use the random number generator to generate ten 
numbers in the following ranges: 

a. to 20 6. 10 to 45 c. -10 to +10 
d. -50 to e. .34 to 1.83 

2. Modify the sine wave program to print a cosine wave. 
Experiment with different values for the amplitude A 
and step size E. 

3. Write a program to add two fractions, determine the 
lowest common denominator, and print the sum both as 
a decimal and in fractional form reduced to lowest 
terms. 

4. In the crap game application the roll value is computed 
by adding two random numbers, each in the range 1 to 
6. Lines 190-200 and 300-310 could have been writ- 
ten with ROLL = INT(6*RND)+INT(6*RND)+2, 
which produces a random number between 2 and 12. 
Why couldn't we use a statement like ROLL = 
INT(ll*RND)+2 to produce random numbers between 
2 and 12 instead of the method mentioned above? 



Working 
With String Functions 



Statements: MID$, LINE INPUT 
Functions: LEN, LEFT$, RIGHT $, MID$, 

INSTR, STR$, VAL, CHR$, ASC, 
STRING$, SPACE $, INPUT$, 
INKEY$ 
Control Characters: A G 



In the last chapter we introduced several functions. Some of those 
functions were of interest to the general programmer, but many 
were of interest only to those involved with math or engineering pro- 
gramming. In this chapter we introduce some of the string functions. 
These will be of interest to all programmers, regardless of specialty. 
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Finding the Length of a String 

[LEN] 

The LEN function is used to find the length of a string. For 
example: 

10 A»="ABC" 

20 PRINT LEN(A$),LENt"WXYZ"j 



3 4 
Ok 

The string may be a variable or a literal, as shown in line 20. 

The LEN function counts every character in the string, including 
spaces and special characters. A string with zero length is called an 
empty string or a null string. 

V} A«='ABC' : B*=" 
20 C*="STUHP, SAM" : D$="" 
30 PRINT LEN (A*), LEN(Bt) 
40 PRINT LEN(C$i. LEN(D$) 



fit* 

1 4 
10 
Ok 

In this example, line 40 prints out the length of C$, which is 10. This 
length includes not only the letters that form the names, but also the 
punctuation mark and the space between the last and first names. As 
you can see, the four spaces between the quotation marks for B$ are 
all counted by the LEN function. The string D$ was assigned no 
characters between the quotation marks and has a length of zero. 

The LEN function is commonly used to verify the length of data 
entered into a program. For example, ZIP codes, phone numbers, or 
other fixed-length strings can be checked for proper length. 

Choosing a Portion of a String 

[LEFTS, RIGHTS, MIDS] 

The three functions LEFT$, RIGHT$, and MID$ are used to 
select a portion of a string. Strings have a maximum length of 255. 
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LEFT$ returns the leftmost characters of a string. The format for 
the function is LEFT$(A$,X), where A$ represents the string you are 
extracting from and X is the number of characters for the resulting 
string. When X is greater than the length of A$, the function returns 
the entire string. If X is 0, a null string (a string with zero length) is 
returned. 

10 A$="ABCDEFGH" 
20 FOR X = 2 TO 10 STEP 2 
30 PRINT LEFT$(A$.Xi 
40 NEXT X 



RUN 
AS 

ABCD 

ABCBEF 

ABCDEFGH 

ABCDEFGH 

Ok 



RIGHT$ is similar to LEFT$, except it returns the rightmost 
characters of the string. Again, if the number specified is greater 
than or equal to the length of the string, the whole string is returned. 

10 A*="ABCDEF" 

20 PRINT RIGHT*(A$,4) 



Adding RIGHT$ to line 30 of our first example, we have 



10 A$="ABCDEFGH" 

20 FOR X = 2 TO 10 STEP 2 

30 PRINT LEFT$(A$,X),RIGHT$(At.X.i 

W NEXT X 



CDEF 
Ok 



RUN 

AB 

ABCD 



OH 

EFGH 



ABCDEF 
ABCDEFGH 
ABCDEFGH 
Ok 



CDEFGH 

ABCDEFGH 

ABCDEFGH 



The MID$ function is used to return characters from the middle 
of a string. The format is MID$(A$,X,Y). Here A$ represents the 
string you want the middle of, X represents the position of the char- 
acter you wish to start with, and Y tells how many characters to take. 

10 A$="ABCBEF" 

20 PRINT MW(A*,2,3) 



KB 
Ok 

In this example, we start with the letter B. The third argument is 3, 
so we take three characters; therefore, the output is BCD. 

If the third argument is omitted, MID$ returns all the characters 
to the right of the character in the position specified. To see how 
these three functions work together, type in the following: 

10 A$="ABCDEFGHIJHM" 
20 FOR X = 2 TO 10 STEP 2 

30 PRINT LEFTt(A*,X),MD$(A*,X.X),RIGHT$(A*.X) 
40 NEXT X 

Running the program produces the following: 

RUN 



m 


BC 


LN 


ABCD 


DEFG 


JKU 


ABCDEF 


FGHIJK 


HIJKLH 


ABCDEFGH 


HIJKLH 


FGHIJKU! 


ABCDEFGHIJ 


JKLH 


DEFGHIJKLM 



0k 

Experiment with the numeric variables in line 3 to change the 
starting position in the string. Run the program to verify your pre- 
dictions for the output. 

Replacing a Portion of a String 

[MIDS] 

When MID$ appears on the left side of an assignment statement, 
it becomes a statement or command. The MID$ statement can be 
used to replace a portion of a string with another string. The format 
of the MID$ statement is similar to the MID$ function: MID$(A$, X, 
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Y) = B$. The characters in A$ beginning at position X are replaced 
by the first Y characters in B$. If Y is omitted, all of B$ is used. 
However, regardless of whether Y is omitted or included, the 
replacement of characters cannot exceed the original length of A$. 
This means that the MID$ statement can never change the length of a 
string. 

10 At = "1234567890* 

20 MD*(A*,3,5) = "ABCDEFG" 

30 PRINT M 




In the preceding example, the third through seventh characters of 
A$ are replaced by the characters ABCDE. In the following exam- 
ple, the third argument or length argument is omitted: 

10 A$ = "1234567890" 
20 MID*(A$,5) = "ABC" 
30 PRINT A$ 



RUN 

1234ABC890 
0k 

The complete string ABC replaces characters in string A$ beginning 
at the fifth position (that is, replacing the characters 567). 

Searching for Strings Within Strings 

[INSTRJ 

The INSTR function is used to search one string for the presence 
of a matching second string. It indicates the starting position in the 
first string where the match was found. 

10 PRINT INSTR( "123456789". "567") 



5 

0k 
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This tells us that the string "567" is contained in the string 
"123456789" and that it begins in position 5. The format for INSTR 
may also contain a third argument. This form of the INSTR function 
has the format INSTR(I, X$, Y$), where / indicates the initial posi- 
tion to begin the search for Y$ in X$: 

10 A$=" 12345678901234567890" : B$="567" 
20 PRINT INSTR (10, A$, B«) 

15 
0k 

The preceding search starts at the tenth position in A$. The output 
shows that B$ begins at the fifteenth character of A$. 

If the length argument has a value greater than the length of A$ 
or if A$ is null, INSTR returns the value 0. The value is also 
returned if B$ is not found in A$. 

Our next example shows how the MID$ function can be combined 
with the INSTR function: 

10 A*="1234ABC39012ABC678?0" 
20 PRINT INSTR(A$. "ABC") 
30 PRINT INSTRU1, A$, "ABC") 
40 PRINT INSTR(MID$(A$,11). "ABC") 

RUN 

5 
13 
3 
0k 

Notice the difference in the output from lines 30 and 40. In both 
cases the search starts from the eleventh position in A$ and locates 
the second occurrence of "ABC" in A$. The difference is that line 30 
printed the absolute position of "ABC" in A$, whereas line 40 printed 
the relative position (starting at position 11) of "ABC" in A$. Also 
notice that we have used the string constant "ABC" instead of B$. 

If the string you are searching for is a null string, the INSTR 
function will return an answer of 1. If the initial search position 
argument is used, the function will return this argument. For 
instance, in this example we are searching for a null string: 

10 A$="ABCDEFGHr 
20 B$=" 

30 PRINT INSTR(A». B$J 
40 PRINT INSTR(5, A$. "") 
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RUN 

1 

5 
ft 

Experiment using different values for these arguments until you 
feel confident with this function. 



Converting Between Numbers and Strings 

[STRS, \AL] 

The STR$ and VAL functions are used to convert numbers to 
strings (STR$) or strings to numbers (VAL). Consider the output 
from the following program: 

10 A = 123 : B = 56 

20 A$ = STR*(A) : B$ = STR$(B) 

30 PRINT A$,B* 

40 PRINT A + B 

50 PRINT A* + B$ 

60 PRINT LEN(A$), LEN(B») 

RUN 

123 56 

179 

123 56 

4 3 
0k 

Line 30 prints the strings A$ and B$. The output from line 40 is 179, 
which is the sum of the numbers represented by the variables A and 
B. Line 50 shows the concatenation of the two string variables, A$ 
and B$. 

In line 60 the output from LEN(A$) is 4, even though A$ is the 
string representation of the three-digit number 123. The STR$ func- 
tion always holds a place for the sign of a number along with the 
number. When the number 123 was converted to a string with the 
STR$ function, the position for the sign was assigned to A$ along 
with the number. In this case, the number is positive so it is not 
printed. A space was inserted in place of the plus sign; therefore, the 
length is 4. Again, the length of STR$(X) is always one longer than 
the number of digits in the number. 
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The argument for STR$ must be numeric but does not have to be 
an integer. For example: 

10 AS = STR«(253.15.i 
20 PRINT At. LEN(At) 



RUN 

253.15 7 
Ok 

The VAL function is the opposite of STR$. It converts a string 
into a number. Enter and run the following: 

10 At = "94598" 
20 A = VAL(A$) 
30 PRINT A + 2 

RUN 

94600 
» 

Line 20 converts the string A$ into its numeric value. The output 
from line 30 prints the sum of that value and 2. If you tried to add A$ 
and 2, you would get the message "Type mismatch in line 30". 

If the first nonblank character of the string being converted by 
the VAL function is not a plus sign, a minus sign, or a digit, the VAL 
function returns a 0. For example, VAL("SAM") would be but 
would not give an error. 

This property of the VAL function can be very convenient. If you 
wanted to write a program that will keep track of employees with 
employee numbers, you might have a statement like 

100 INPUT "Enter employee name or number: ".EMPt 

You could then determine if the user typed a name or number 
simply by using VAL(EMP$). If we know that no employee will have 
number 0, then VAL(EMP$) = means EMP$ is a name; otherwise, 
VAL(EMP$) is the employee number. 

Using the ASCII Character Set 

[ASC, CHRS] 



The acronym ASCII is the name of the numeric code used by most 
computers to internally represent characters. The ASC function is 
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used to return the numeric value that represents the ASCII charac- 
ter. If the length of a string is greater than 1, the ASC function 
returns the code only for the first character of the string. 
For example: 

10 X* = "A" : Yt = "abe" 
20 PRINT ASC(X$).ASC(Y$) 

RIM 

65 97 
Ok 

In the output from this example, 65 is the ASCII code for the capital 
letter "A", the first character of the string X$; and 97 is the ASCII 
code for "a", the first character of the string Y$. Attempting to take 
ASC of a null string will generate an "Illegal function call". 

The function CHR$ returns the string that is denoted by an 
ASCII code number. As you can see from the following example, the 
numbers 65 through 90 of the code represent the capital letters A 
through Z: 

10 FOR X = 65 TO 90 
20 PRINT CHR*(X.i: 
30 NEXT X 

Ok 

The ASCII code ranges from to 127. The codes through 31 are 
the control characters we have used in previous chapters. Control 
characters are usually used by programs to send special commands. 
The interpretation of control characters varies greatly from one ter- 
minal or printer to another. 

The ASCII codes 65 to 90 and 97 to 122 are upper- and lowercase 
characters, respectively. Notice that any given lowercase letter 
always has a value that is greater by 32 than its corresponding 
uppercase letter. The codes 48 to 57 represent the characters 
through 9 in order. The remaining codes between 32 and 127 repre- 
sent the punctuation marks, and 32 is the code for a space. In spite of 
this standard for the ASCII set, the codes for some of the punctuation 
marks may vary from one printer or terminal to another. 

Although only codes through 127 are defined, many terminals 
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and printers use codes 128 through 255 for special purposes, such as 
graphics. 

Let's try one more example with the ASC function: namely, that of 
finding the ASCII code for the letters in a name. This program could, 
of course, be used to find the ASCII code of any character. 



10 INPUT "Type in your name: " ■ NAM* 

20 FOR I = 1 TO LEN(NAM$» 

30 C$ = MID$(NAM$,U> 

40 PRINT USING " ! ' is HI»}ttsASC(CM 

50 NEXT 1 



RUN 

Type in your nase: EGBERT SNEED 

E- is 69 
is 71 
B' is 66 
E' is 69 
'R-" is 82 

V is 84 
is 32 

S is 83 
is 78 
■I- is 69 
'E is 69 
■f is 68 
0k 
Rtti 

Type in your name: egbert 
e is 101 
g is 103 

V is 98 
e is 101 
r is 114 
t is lid 

0k 

Notice in line 30 that the MID$ function (not the LEFT$ function) 
must be used to select the character at position I of NAM$. On the 
first time through the loop I is 1, so that C$ is assigned the first 
character of NAM$. On the second time through the loop I is 2, so 
that C$ is assigned the second character of NAM$. On the last time 
through the loop I is LEN(NAM$), so that C$ is assigned the last 
character of NAM$. Also recall from our discussion of formatting 
with the PRINT USING command (in Chapter 6) that the (!) mark in 
line 40 is used to print a string length of 1. 
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Note that the variable NAM$ is used instead of the more descrip- 
tive variable NAME$ because NAME is an MBASIC keyword. The 
NAME statement will be discussed in Chapter 14. 

RINGING THE BELL 

[ A G] 

One of the more useful control characters is ASCII character 7, 
which is CTRL-G. Often called A G or BELL, this character rings the 
bell on your terminal. You can check to see if your terminal supports 
this function by giving the command PRINT CHR$(7) and listening 
for a sound. This control character can be used by an MBASIC pro- 
gram to get the operator's attention to perform a task or to warn that 
an error has occurred. 



Creating a String of the Same Characters 

[STRINGS, SPACES] 

The function STRING$ is used to create a string composed of 
repeated identical characters. The format is STRING$(X, Y$), where 
X represents the length of the string and Y$ is the character to be 
used. If Y$ contains more than one character, only the first character 
is used. Run the following example: 

10 A$ = STRINBK5."**) 
20 PRINT A$ 

RUN 
Ok 

This function is useful to pr. it headings for reports or tables. 
Enter and run the following: 

10 A* = STRINGt(5."*"> 

20 8* = " DECEMBER REPORT * 

3iJ PRINT A$;B*;A» 



***** DECEMBER REPORT ***** 
Ok 
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In this next example, we add one line to the previous program, to 
underline the heading: 

10 A$ = STRING$(5.'*"> 
20 B$ = " DECEMBER REPORT 
30 PRINT A$;B*;A$ 

40 PRINT STRING$(LEN(A$}*2 + LEN(B$ >."=•; 
RUN 

***** DECEMBER REPORT ***** 
Ot 

By using the expression LEN(A$)»2 + LEN(B$), we automati- 
cally change the length of the underline string if we change either 
A$ or B$. 

A second format for the STRING$ function is STRING$(X, Y), 
where X represents the length of the new string (as before) and Y 
represents the ASCII code of the character to be repeated. This for- 
mat of the function is normally used with control codes. For example: 

10 A$ = STRING$(5."*M 

20 PRINT A$;STRING*(5.10);A$ 

RUN 



WWW VW 

Ok 

In the preceding example, line 20 first prints out A$, the five 
asterisks. After this it calls the STRING$ function with a second 
argument of 10, which represents the ASCII code for LINE FEED. 
LINE FEED is a control character which, when printed to the 
screen, causes the cursor to move down to the same column on the 
next line. The first argument (5) of STRING$ causes five line feeds to 
be printed so that the output drops down five lines before printing 
A$, the second five asterisks. 

The function SPACE$(X) prints out the number of spaces repre- 
sented by the argument X. SPACE $(X) is identical to STRING$(X," "). 
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10 FOR X = 1 TO 5 

20 PRINT X; "SPACE ";CHR*f34);SPACE$<X);CHRV;34.< 
30 NEXT X 



RW 

1 SPACE " " 

2 SPACE " " 

3 SPACE " * 

4 SPACE " 

5 SPACE " 
Ok 



Notice that in line 20 of the preceding example, we use the CHR$ 
function to print out the ASCII code for double quotation marks (34 
is the ASCII code for double quotation marks). We need to do this 
because double quotation marks have a special significance in 
MBASIC: namely, that of enclosing strings. Therefore, the only way 
to print out the double quotation marks is to use the CHR$ function. 

A general rule to keep in mind when working with strings is that 
MBASIC does not work with strings longer than 255 characters. This 
means that all arguments referring to a position or length of a string 
must evaluate to an integer between and 255. However, if an argu- 
ment evaluates to a decimal number, MBASIC will automatically 
round the number to the nearest integer before using it. For exam- 
ple, if X is 1.25, STRING $(X,"+") will be a string with one character. 
If X is 1.75, STRING $(X,"+") will be a string with two characters. 
For example: 



10 FOR X = 1 TO 3 STEP .25 
20 PRINT X,STRING$(X."+") 
30 NEXT X 



mm 




i 


*■ 


1.25 


t 


US 


++ 


1.75 


++ 


2 


++ 


2.25 


■H 


2.5 


++ 


2.75 


++ 


3 


++ 


0k 
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Controlling Input 

[INPUTS] 

The INPUT$ function is used to get a string of characters from 
the terminal. The format is INPUT$(X), where X specifies how many 
characters to accept. Unlike the INPUT statement introduced in 
Chapter 4, the INPUT$ function does not echo (that is, reprint) the 
input on the screen. Sometimes it is desirable not to have the input 
echo on the screen as the user is typing. 

10 PRINT "Press any key to continue. 
20 wmn = INPUT*U> 



Press any key to continue. 
Ok 

Program execution waits at line 20 until any key is pressed at the 
terminal. These two statements might be useful in a program that 
prints instructions and waits for the user to read the instructions 
before continuing. Since INPUT$ is a function, its returned value 
must go somewhere; therefore, a dummy variable (DUMMY$) is 
used to collect the "any key" that the user typed. The name 
DUMMY$ is just a convention we have chosen to mean that we are 
not particularly interested in which key the user typed to continue 
the program. 

10 PRINT "Type in 5 characters:" 

20 C$ = INPUT$<5» 

3D PRINT LEN(C$),ASCtC*).C* 



Type in 5 characters: [Enter 12345] 
5 49 12345 

0k 

RIM 

Type in 5 characters: [Enter GRE0 preceded by a space] 
5 32 GREG 

0k 

In this example, notice that the argument for INPUT$ is 5, so five 
characters must be input from the keyboard before the program can 
continue. In the first run of the program, the 49 represents the 
ASCII code of the first character input, the 1. In the second run of 
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the program, notice that only four characters are visibly printed. 
This is because the first character input was a space (32 is the ASCII 
code for the space character). 

Note that INPUT$ will accept all characters except A C as input. 
Recall from Chapter 4 that A C is used to interrupt the program. Run 
the program and press A C. When you stop a program in an INPUT$ 
statement with A C, MBASIC does not print the usual "Break in 20" 
message. 

The next example translates all uppercase letters, A through Z, to 
lowercase letters: 

10 PRINT "Now entering lowercase mode." 
20 C$ = INPUTJU.l 

30 C = ASCiCt.i 

40 IF C >= ASCl"A") AND C <= ASCCZ") THEN C = C ♦ 32 

50 PRINT CHR$(C)! 

60 IF C O 13 THEN GOTO 20 

70 PRINT 



Now entering lowercase node. 
0k 



The translation is performed in line 40, where if any uppercase letter 
is typed at the keyboard, it has 32 added to its ASCII code. Line 40 
translates the letter to the corresponding lowercase letter. All other 
characters, such as numbers or punctuation marks, are printed on 
the screen just as entered. Line 60 ends the program when the 
RETURN key is pressed. The ASCII code for RETURN is 13. 



USING THE INKEYS FUNCTION 

[INKEYS] 

The INKEY$ function is similar to the INPUT$ function. 
INKEY$ will return the last character typed at the terminal or a 
null string if no characters have been typed. The difference between 
INKEY$ and INPUT$(1) is that INKEY$ does not wait for the user. 
If no key has been pressed since the last INPUT or INPUT$, pro- 
gram execution continues at the next statement or line number. Keep 
in mind that the INKEY$ function has no arguments and therefore 
looks a lot like a string variable. 

In the next example we use the INKEY$ function to get a random 
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number seed that depends on how long it takes the user to respond 
after reading some instructions. Since every user's response time will 
be slightly different, we can then use this "time" in the RANDOM- 
IZE statement. If the RANDOMIZE statement is followed by an 
expression, as it is in line 130, that expression is used as the seed for 
the random number generator. 

10 PRINT 'Instructions: 
20 PRINT 
30 PRINT 

40 PRINT "Press any key to continue. 

50 TIME = -32763 

60 WHILE LEN(INKEY$.) = 

70 TIME = TIME + 1 

80 WEND 

90 WHILE TIME > 32767 
100 TIME = TIME - 65535 
110 WEND 

120 PRINTrPRINT "Your lucky nutter is ":TIHE 
130 RANDOMIZE TIME 

140 FOR I = 1 TO 10 

150 PRINT INT(RND*10) + t. 

160 NEXT I 



Instructions: 



Press any key to continue. 
Your lucky nunber is -31971 

6 5 2 8 8 

3 4 4 7 1 

0k 

Instructions: 



Press any key to continue. 
Your lucky nuiber is -26139 

6 3 3 1 1 

7 5 6 o 10 

0k 

This technique is very useful for games that print instructions on 
the screen, since it provides a good way of getting the random seed 
without asking the user for it. Since INKEY$ returns a null string 
until a key is pressed, the WHILE loop from lines 60 through 80 
counts with the variable TIME% until a key is pressed. When a key 
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is pressed, INKEY$ will become equal to the corresponding charac- 
ter and will no longer have length 0. Lines 90-110 prevent TIME 
from overflowing the range for the RANDOMIZE statement (-32768 
to 32767). This is also the range for integer variables. If we did not 
check for bounds, we would get an overflow error in line 130. The 
FOR/NEXT loop prints ten random numbers so that you may con- 
vince yourself by running the program that it is very difficult to 
repeat the same set of random numbers twice. 

Using Line Input 

[LINE INPUT] 

The LINE INPUT statement is similar to INPUT except that it 
allows you to enter a string containing commas and quotation marks. 
For example, if you want to enter a name with the last name first and 
a comma separating the names, INPUT would consider the comma to 
mean you entered input for two strings. The next example illustrates, 
with LINE INPUT, how you can enter names last name first using a 
single variable and without entering quotation marks around the 
input: 

10 LINE INPUT "Enter name last nan* first: ".NAM* 
20 PRINT NAM* 

RtM 

Enter naie last name first: SLUG, FRED 

SLUG. FRED 

0k 

If we had used an INPUT statement in line 10 instead of using 
LINE INPUT, the input SLUG, FRED would have been considered 
as two separate inputs: SLUG and FRED. Using an INPUT state- 
ment would have required using two variables or entering the input 
enclosed in quotation marks. 

The prompt for LINE INPUT does not automatically print the 
question mark as the INPUT statement does. If you want a question 
mark, you must place it in the prompt string. Also notice that since 
LINE INPUT accepts everything you type as one string, you cannot 
use LINE INPUT to input more than one string or to input 
numeric variables. 

LINE INPUT will stop accepting characters after 255 characters 
have been typed. If a semicolon is used immediately after LINE 
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INPUT but before the string variable, no carriage return is sent to 
the terminal when you press RETURN. 

Now let's move on to some applications that use the functions 
introduced in this chapter. 



TUTORIALS 



Tutorial 9-1: Password 

Our first application program requires that the operator enter an 
eight-character password before the program can continue. Because 
the password does not appear on the screen, using the password 
makes the program quite secure. 

10 REM - -=*PASSW0RD.C9*=- 

20 REM - Password entry for a prograi 

30 REM - J/2/83 

40 REM - 

50 DATA "ZYXWvUTS","SAMSMITH\"GREG1234V" > 

100 REM - *** START *** 

110 PRINT "Please enter your 8 - character password *: 

120 PASSWORD* = INPUT*(8) 

130 PRINT 

140 RESTORE Set to read first password 

150 READ ENTRY* Read first password 

160 WHILE ENTRY* <> PASSWORD* AND ENTRY* O " 
170 READ ENTRY* 
180 WEND 

190 IF ENTRY* = " THEN PRINT "Invalid password. ":G0TQ 110 
200 PRINT "Password accepted. " 
210 REM - 

220 REM - *** MAIN PROGRAM »** 
230 REM - 

In this example, we program an eight-character password. If in 
line 120 the argument for INPUT$ is set to another value, however, 
the length of your password will, of course, change. Remember that 
INPUT$ does not echo any characters to the screen, with the result 
that you will not see the characters as you type them in. In addition, 
note that the carriage return is automatic after the eighth character 
has been entered. 
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When this program is run, it looks like this: 

m 

Please enter your 8-ctiaracter password [Enter 12345678] 
Invalid password. 

Please enter your 8-character password [Enter SAMSMITH1 

Password accepted. 

Ok 

The null string at the end of line 50 is used to terminate the 
WHILE/WEND loop in lines 160 through 180. Line 150 reads the 
first entry of the DATA statement and initializes the WHILE/ 
WEND loop. In this loop, each of the entries in the DATA statement 
is compared with the password you enter. If a match is found, you can 
proceed with the rest of the program. If no match is found, the null 
string terminates the loop and line 190 then prints the message 
"Invalid password". Then the program returns to line 110 for you to 
make another password entry. The RESTORE statement at line 140 
is necessary for the case in which a user must type in the password 
more than once. In this case, the data must be restored so that the 
READ statement at line 150 will read the first password in the 
DATA statement. 



Our second application allows you to replace any word or group of 
words in a message with whatever string you wish. If the section that 
is to be replaced occurs more than once in the message, all occurrences 
of it are replaced. 



100 READ MSG$ 

110 PRINT: PRINT MSG$ 

120 LINE INPUT "Replace: ".A* 

130 IF LEN(At) = THEN END 

140 LINE INPUT "With: ",Bt 

150 I = INSTR(«SG«,A$= 

160 WHILE I <> 

165 REM (1) (2) (3) 

170 MSG$ = LEFT$(MSG$.I-1) + B* + MID*(MSG$. I+LENiAt.M 

180 I = INSTR(I+LEN(A$).I1SG*.A$) 

190 WEND 

200 GOTO 110 

210 DATA "LIONS AND TIGERS AND BEARS, OH WV!" 



Tutorial 9-2: Replace 



10 REM - 

20 REM - 
20 REM - 



-«fiEPLACE. Ga- 
strins replacement exaeple 
1/2/83 
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When this program is run, it looks like this: 



LIONS AND TIGERS AND BEARS. OH MY! 
ReplaceMIGERS 

LIONS AND COUGARS AND BEARS. OH MY! 
Replace: LIONS AND 
With: ELEPHANTS OR 

ELEPHANTS OR COUGARS AND BEARS. OH MY! 
Replace: E 
With: e 

eLePHANTS OR COUGARS AND BeARS. OH MY! 

Replace: 

Ok 

In lines 120 and 140, LINE INPUT is used rather than INPUT so 
that either the string you are replacing or the replacement string 
may contain commas. Pressing just the RETURN key in response to 
the LINE INPUT statement at line 120 will end the program at line 
130. In line 150 the variable I is set to the position of the first occur- 
rence of A$ in MSG$. If I is 0, this means that the string to replace 
was not found, and the WHILE loop is not executed. The actual 
replacement happens in line 170. 

165 REM (1) (2; (3.' 

170 HSGi = LEFT$(HSG$,I-1) ♦ B* + MID*<HSG$,I+LENiA*;> 

The three parts of the equation on line 170 represent 1) the begin- 
ning of the message string up to the position where replacement will 
start; 2) the replacement B$; and 3) the last part of the message, 
which is not affected by the replacement. These three sections are 
concatenated to give the new message. 

In the first example run, the three parts of line 170 would be 

1) "LIONS AND " 

2) "COUGARS" 

3) " AND BEARS. OH MY!" 

The WHILE loop at line 160 continues searching for A$ in MSG$ 
until A$ is no longer found. The argument I -I- LEN(A$) of the 
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INSTR function in line 180 ensures that the search will start after 
the last replacement. 



Tutorial 9-3: Cryptogram 

A cryptogram is a message written in code. Our next example 
allows you to enter a message in uppercase letters. These letters are 
then exchanged with their corresponding letters in the code string. 
All spaces, punctuation marks, or lowercase letters are passed 
through unchanged. 

10 REM - -=*CRYPT0.C9*=- 
20 REM - Message encrypter 

30 REM - 1/2/83 
40 REM - 

100 ALPHAS ="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'Uppercase alphabet 

110 C0DE$ = "KIEVNHUPOCRAXLTYSZBGWJFCMD" One-to-one replacements for ALPHA* 

120 PRINTLINE INPUT "Enter a message to encode: ";MESSG* 

130 IF LENtMESSG*) = THEN END 

140 ENCODE* = MESSG* Initialize encoded message 

150 FOR 1=1 TO LEN(MESSG$) 

lib INDEX = lNSTR(ALPHA*,MID*(MESSG*,I,lh 

170 IF INDEX > THEN MID*(ENC0DE*,I,1) = MID*(C0DE*, INDEX. 1) 

180 NEXT I 

190 PRINT "The encoded message is : "; ENCODE* 
200 GOTO 120 

When the program is run, it looks like this: 



Enter a message to encode: HELLO BASIC 
The encoded message is : PNAAT IKB0E 

Enter a message to encode: GOODBYE 
The encoded message is : UTTVIMN 

Enter a message to encode: 
0k 

The key part of this program is lines 140 through 180. Line 140 
initially sets the encoded message ENCODE $ equal to the original 
message MESSG$. The FOR/NEXT loop in lines 150 through 180 
replaces each character in ENCODE? that is found in the string 
ALPHA$ with the corresponding character in the string CODE$. 



162 The MBASIC Handbook 



Characters in ENCODE $ that are not found in ALPHA$, such as 
punctuation and lowercase, are left alone. 

Notice that the position in ALPHA$ of each character in 
ENCODE $ is stored in the variable INDEX. INDEX is set to zero if 
the character is not found in ALPHA$. Also notice that in line 170 
one character is replaced with the MID$ statement and MID$ func- 
tion. Variable I is the position of the character in the ENCODE $ 
string that is replaced with the character in CODE$ at position 
INDEX. The MID$ function on the left side of the equation in line 
170 tells where in ENCODER the assignment is to go, and the MID$ 
function on the right side of the equation tells which character to 
assign. The string ENCODE $ is changed "in place"; that is, its 
length never changes throughout the FOR/NEXT loop. 

When the loop is completed, the encoded message is then printed 
by line 190. 



EXERCISES 



1. Use the random number generator to generate ten 
words. Have each word randomly contain from five to 
eight characters. Print each word. 

2. Use READ and DATA statements to read in five 
names, last name first, with the last name and first 
name separated by a comma and one space. Have your 
program print the names last name first (as they were 
read in) and then first name first. Here is an example 
of output for one name: 

Smth. Alfred Alfred Saith 

Use the following data: 

DATA "Saith, Alfred". "Jones, Tot". "Surges. Mary" 
DATA "Able, Susan", "Waters, Larry" 



Working with String Functions 

3. Modify the program in Tutorial 9-1 to accept passwords 
of any length. Use INPUT$ so that the input is not 
echoed to the screen. Assume that the user will press 
RETURN following the password entry. (Hint: Input the 
password one character at a time until you read a 
RETURN character.) 

4. Write a program to decode messages encoded by the 
program in Tutorial 9-3. (Hint: This can be done by one 
change to lines 160 and 170.) 



Using Arrays 



Statements: DIM, OPTION BASE, ERASE 
Functions: FRE 



Until now, all of our programs have used different letters or 
groups of letters to represent variables. These variables hold the data 
entered into the programs. 

10 A = 1:6 = 2:C = 3:D = 4 
20 PRINT A,B.C,D 



RUN 

12 3 4 

Ok 

Another and more versatile method of holding program data is to 
use subscripted variables. In this case we use a letter and a number 
enclosed in parentheses. The following program is the same as the 
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previous program. This time, however, we are using a single letter, 
A, and subscripts to name our variables: 

10 AU)=l:A(2)=2:A(3>=3:A(4.t=4 
20 PRINT AU).A(2).M3),A(4i 



RUN 

1 2 3 * 

Ok 

The numbers in parentheses are the subscripts; the variable A(l) 
is read aloud "A sub 1." Data assigned to subscripted variables in this 
manner is collectively called an array. In this example we used the 
single letter A to name the array. The rules for naming array varia- 
bles are the same as those for naming the variables you have been 
using. The array subscripts can be any expression, from a simple 
constant or variable to a complicated mathematical expression. 

Forming an Array 

The major advantage of working with an array is that all of the 
data you assign to the array is stored in the computer and you can 
manipulate arrays as many times as you like. As an example, consider 
the next two programs. They have the same structure and perform 
the same simple task. 

10 FOR X = TO 4 
20 A = X * 2 
30 PRINT A: 
40 NEXT X 



RUN 

2 4 6 8 
Ok 

Now if we enter direct mode and give the command PRINT A, 
we get 8, but the previous values of A (2, 4, and 6) are lost. If we 
want to preserve those values, we can change the program so that it 
uses subscripted variables in an array, as follows: 

10 FOR X = TO 4 
20 A(X)=X * 2 
30 PRINT A(X); 
40 NEXT X 
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RIM 

2 4 6 8 
Ok 

Now print out all the variables from the direct mode. You will see 
that this time all the values are retained in the computer's memory: 

PRINT A(0);A(1};A(2);A(3);A(4) 
2 4 6 8 
Ok 

In the first example we could, of course 'have used a different letter 
for each variable to accomplish the same thing. But if you have a 
large amount of data— say, 20 names and phone numbers— using 
subscripted variables is by far the easier way to enter and store data. 

Let's make one change in this program. In line 10 we will change 
our counter to go from to 20. This will give our array, A, 21 values: 
A(O) through A(20). Now when we run the program, notice that we 
get an error message, "Subscript out of range in 20." 

10 FOR X = TO 20 
20 AIX;=X * 2 
30 PRINT A«i 
40 NEXT X 

■I 

2 4 6 8 10 12 14 16 18 20 
Subscript out of range in 20 
0k 

We can solve this problem by using a DIM statement. 



Dimensioning an Array 

[DIM] 

The DIM statement is required whenever you wish to use arrays 
that have more than 11 elements. The error in the preceding program 
occurred when the FOR/NEXT loop tried to print A(ll). If the DIM 
statement is not used, a maximum value for the subscript of 10 is 
assumed. If you attempt to enter an array value beyond that used in 
the DIM statement or beyond 10 if you have not used a DIM state- 
ment, you will receive the "Subscript out of range" error message. 
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A second function of the DIM statement is to initialize the value of 
all elements of the array to 0. For example: 

5 DIM A(20) 
10 FOR X - TO 20 
20 A* Xj=X * 2 
30 PRINT MXi! 
40 NEXT X 



2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 
Ok 

If an array is going to contain more than 11 variables, it must be 
dimensioned before the array is first accessed. Once the array has 
been accessed, it may not be redimensioned. 



String Arrays 

In the next example, we use several of the functions introduced in 
the previous chapter to produce random words. We will use sub- 
scripted variables to work with strings. An array can contain either 
strings or numbers. 

10 INPUT "How many words do you want ";W0RDS 

20 DIM A$(W0RDS> 

30 RANDOMIZE 

40 FOR V = 1 TO WORDS 

50 FOR X = 1 TO 5 

60 A$(X) = CHRt(INT(26*RND)+65> 

70 PRINT A$(X): 

80 NEXT I 

90 IF Y/5 = INT. t 5= THEN PRINT ELSE PRINT " 
100 NEXT Y 



How many words do you want ? 5 

Random number seed (-32768 to 32767)? 10101 

VYJQB WPYLN IDBI0 0BHQI HJJMI 

Ok 

First we use an INPUT statement to set the size of our array. Our 
variable WORDS is then used with a DIM statement and also in our 
FOR/NEXT loop. Line 60 uses three of the MBASIC functions to 



produce random capital letters. Integer random numbers are pro- 
duced in the range 65 to 91; then the CHR$ function is used to con- 
vert these numbers to letters. The FOR/NEXT loop in lines 50-80 
prints the letters in groups of five to form a "word." Notice in line 90 
how the INT function is used to cause a carriage return after each 
set of five words is printed. 

Changing the Array Base 

[OPTION BASE] 

You have the choice of setting the first subscript of an array to a 
value of 1 or leaving it at the default value of 0. No values other than 
or 1 are permitted for the minimum subscript. One purpose in set- 
ting the minimum value of the subscript to 1 is to make programs 
compatible when you change from one manufacturer's version of 
BASIC to MBASIC. 

The function OPTION BASE is used to assign a minimum value 
of 1 to array subscripts. It must be placed in the program before the 
DIM statement. There are the two possibilities for OPTION BASE. 
The second possibility, although legal, is unnecessary since is the 
default value. 

10 OPTION BASE 1 The first array element is 1 instead of & 
20 DIM AU5> -'This will reserve 15 data elements (1-15). 

PRINT A(l) will give the first array element, while PRINT A(0) will 
give a "Subscript out of range" error. 

10 OPTION BASE 'This is the default mode for arrays. 

20 DIM AU5J 'This will reserve 16 data elements (0-15). 

PRINT A(0) will give the first array element. 

Forming Two-Dimensional Arrays 

Our array examples up to this point have shown only one- 
dimensional arrays. But many times it is convenient to associate data 
in rows and columns. For example, the newspaper often shows the 
major league standings, as in Table 10-1; this is one example of a 
two-dimensional array. Each of the rows shows the information for a 
team, and each of the columns shows the same type of information for 
all the teams. 
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The notation for two-dimensional arrays consists of the array 
name and two subscripts inside the parentheses— for example, 
A(2,4). The first subscript represents the row and the second sub- 
script represents the column. In Table 10-1, the data in position (2,4) 
is .556. 

Table 10-2 is a 3X4 array; that is, it has three rows and four 
columns. In order to identify any element in the array, you would use 
a variable name to identify the array, a number to identify the row, 
and a number to identify the column, such as EASTDIV(BALT, 
PCT). As Table 10-2 describes array A, A(l,l)=4 and A(2,3)=9. 



Table 10-1. 

Example of a Two-Dimensional Array 



AMERICAN LEAGUE 
EAST DIVISION 





W 


L 


PCT 


GB 


BALTIMORE 


11 


8 


.579 




MILWAUKEE 


10 


8 


.556 


1/2 


BOSTON 


10 


8 


.556 


1/2 


NEW YORK 


9 


10 


.474 


2 


DETROIT 


8 


9 


.471 


2 


TORONTO 


8 


10 


.444 


2 1/2 


CLEVELAND 


8 


11 


.421 


3 



Table 10-2. 

Example of a 3X4 Array 





COLUMN 1 


COLUMN 2 


COLUMN 3 


COLUMN 4 


ROW 1 


4 


10 


5 


12 


ROW 2 


2 


3 


9 


6 


ROW 3 


11 


7 


1 


8 



Using Arrays 171 



Now consider the following program. First we use a nested loop to 
read in an array from DATA statements, and then we use a second 
nested loop to print the array. 



120 DATA 3.6,1 
130 DATA 5,2,8 
140 DATA 7,4,? 

145 REM Read in the array 

150 FOR R = 1 TO 3 

160 FOR C = 1 TO 3 

170 READ G(R,D 

180 NEXT C 

190 NEXT R 

200 REM Print the array 

210 FOR A = 1 TO 3 

220 FOR B = 1 TO 3 

230 PRINT USING "##";G(A,B>; 

240 NEXT B 

250 PRINT 

260 NEXT A 



3 6 1 

5 2 8 

7 4 9 
Ok 



Notice that in lines 150 through 190 where the array is read, the 
subscript variables R and C are used to represent row and column. 
In the FOR/NEXT loop for printing (lines 210 through 260) we use A 
and B. It makes no difference what letters are used for the subscript 
variables or whether they change. Just keep in mind that the first 
variable is the row and the second is the column. 

You will often want to perform mathematical operations on an 
array. The following shows replacement lines for the previous pro- 
gram. In order to find the sum of each row in array G, we insert lines 
225, 245, and 246. Run the program and trace through the output 
section to verify the output indicated. 

210 FOR A = 1 TO 3 

220 FOR B = 1 TO 3 

225 SUM.ROW=SUM.R0W ♦ G(A.B) 

230 PRINT USING "M ";G(A,B>: 

240 NEXT B 

245 PRINT ■=";SUH.R0H 

246 SUM. ROM = 
260 NEXT A 
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RUN 

3 6 1= U 
5 2 8 = 15 
7 4 9 = 20 
Ok 



In the following example, we again change the output of the above 
3X3 array. This time we want to find the sum of the columns for 
array G. 



210 FOR A = 1 TO 3 

220 FOR B = 1 TO 3 

225 SUH.C0L(A)=SUM.C0L(A) HHB.A) 

230 PRINT USING "## »;G(A,B>; 

240 NEXT B 

250 PRINT 

260 NEXT A 

270 PRINT 

280 FOR X - 1 TO 3 
290 PRINT SUM.COUX): 
300 NEXT X 



RUN 

3 6 1 

5 2 8 

7 4 9 

15 12 18 
0k 



In order to find the sum, we change the subscripts of our array from 
A,B to B,A (line 225). Notice that because we cannot print the sums 
of the columns until the entire array has been printed, we need a 
second FOR/NEXT loop to print out the sums (lines 280 through 
300). Since we wait until the nested loop is completed (lines 210 
through 260), we must calculate and store the sums with the sub- 
scripted array, SUM.COL(A). Trace through the program by hand 
and then run the program to verify the output. 

Our final program dealing with the array G will find the sum of 
the diagonals. This is shown in Figure 10-1. 

Note that the row and column subscripts for diagonal 1 (DIAG1) 
are equal: (1,1), (2,2), and (3,3). For diagonal 2 (DIAG2), note that the 
row subscript decreases by 1 each time and the column subscript 
increases by 1. We can take advantage of these characteristics of a 
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DIAG1 — *► 1.1 1,2 1,3 

2,1 2,2 2,3 
DIAG2 — 3,1 3,2 3,3 



Figure 10-1. 

Diagonals of a 3X3 array 



square array and find the sum of the diagonals using only one FOR/ 
NEXT loop. Again, trace the problem through to obtain your result 
and verify the result by running the problem. 

210 FOR A = 1 TO ?- 

225 DIAG1=DIAG1 ♦ 6(A.Ai 

226 DIAG2=DIAG2 + G(4-A,A> 
230 PRINT USING "## ";G(A.B>; 
250 PRINT 

260 NEXT A 

270 PRINT "Sum of elements for diagonal #1:";DIAG1 
280 PRINT "Sua of elements for diagonal #2:";DIAG2 

RUN 

3 6 1 
5 2 8 
7 4 9 

Sum of elements for diagonal #1: 14 
Sum of elements for diagonal #2: 10 
0k 

MBASIC allows you to have arrays with as many as 255 dimen- 
sions, although such arrays are usually unwieldy. Some programs, 
especially for engineering or design, use three-dimensional arrays, 
but we will only use one- and two-dimensional arrays in this book. 

Computing Memory Requirements 
For Arrays 

Can we fill a two-dimensional array of 100X 100 with random num- 
bers from to 1? Let's try it: 

10 DIM Ri.100,100) 
20 FOR I = 1 TO 100 
30 FOR J = 1 TO 100 
40 R(I.,0 = RND 
50 NEXT J 
60 NEXT I 
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RUN 

Out of •emory in 10 

Ok 

In this program MBASIC tried to set aside enough memory for a 
100X100 square array and failed. Why? Because the array was too 
big for memory. How big an array can we dimension? 

Let's look at this question of array size. For example: 

10 OPTION BASE 1 

20 DIM A(500) 

Here we are using the variables A(l), A(2), A(500), which is a 
total of 500 variables. Now consider the following two-dimensional 
array: 

10 OPTION BASE 1 
20 DIM A(200,100> 

This creates an array of 200 rows by 100 columns, or a total of 20,000 
variables, shown in Figure 10-2. 

The relevant question then is whether our computer has enough 
memory units (bytes) to handle 20,000 variables. 

As you might have guessed, different types of variables will 
require different amounts of memory. That is to say, a double- 
precision array with 100 variables will take more memory than an 
integer array with 100 variables. Computer memory is measured in 
bytes. Table 10-3 gives the amount of memory taken up by each type 
of variable. The single-precision, two-dimensional array A(200,100) 
would have required at least 80,000 bytes! 



100 




200 




A(l,l), 
A(2,l), 



A(200,l), 



A(l,2), 
A(2,2), 



A(200,2), 



A(l,100) 
A(2,100) 



A(200,100) 



Figure 10-2. 

A 200X100 array 
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Table 10-3. 

Storage Size for Numeric Variables 



Type 



Number of Bytes 



Integer (A%) 
Single precision (A!) 
Double precision (A#) 



2 
4 
8 



The important thing to remember is that each variable in your 
program will require memory for storage. To find the total number 
of bytes available for your program, look at the sign-on message from 
MBASIC: 



BASIC-80 Rev. 5.21 
[CP/ft version] 

Copyright 1977-1981 (€) by Microsoft 
Created: 28-Jul-81 
24286 Bytes free 
Ok 



In addition to the MBASIC sign-on message, which indicates the 
number of bytes free in your computer, you may also use the FRE 
function. This is useful whenever you want to determine the amount 
of available memory. Note that the FRE function needs an argument 
but that the argument is a dummy argument. Any argument, 
numeric or string, used in conjunction with the FRE function will 
return the number of bytes not being used by MBASIC. The value 
returned from FRE will, of course, vary depending on the capacity of 
your computer and your program. We will talk more about storage in 
Chapter 14. 



The ERASE statement is used to cancel a previous DIM state- 
ment. After you have used ERASE, you may redimension an array to 
a larger value if needed. You can also redimension to a smaller value 



Finding Memory Available 

[FRE] 



Recapturing Memory 

[ERASE] 
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in order to free captured memory space and make it available to the 
computer for other uses. You can erase as many arrays at one time as 
you can specify on a single line. 

10 ERASE A 

20 ERASE B.OLDS 



TUTORIALS 



Tutorial 10-1: Numbers 

This application changes numerals that you enter at the keyboard 
into numbers (words) that are printed on the screen. It is an exten- 
sion of Tutorial 4-2 but uses some of the instructions introduced in 

W REM - -=*NBR999.C10*=- 

20 REM - Longhand numbers 

30 REM - 1/2/83 

40 REM - 

100 DEF1NT A-2 

110 DIM NUMBERS (27 J 

120 FOR I = 1 TO 27 

m READ NUMBERS (I) 

140 NEXT I 

150 PRINT: INPUT "Enter a number between 1 and 999 or enter to end: ",X 

160 IF X = THEN END 

170 IF X >= 1 AND X <= 999 THEN 200 

180 PRINT "Sorry, the number must be between 1 and 999." 

190 GOTO 150 

200 PRINT "The number is 

210 IF X >= 100 THEN PRINT NUMBERS (X\ 100): " hundred":: X = X MOD 100 

220 IF X > 20 THEN PRINT c "; NUMBERS (X\ 10 + 18;:: X = X MOD 10 

230 IF X >= 1 AND X <= 20 THEN PRINT " ":NUMBERS{X>: 

240 PRINT ".' 

250 GOTO 150 

260 

270 DATA one, two, three, four, five, six, seven, eight, nine, ten, eleven, twelve 
280 HATA thirteen, fourteen, f if teen, sixteen, seventeen, eighteen, nineteen 
290 DATA twenty. thirty, forty. fifty, sixty, seventy, eighty.ninety 
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First, the numbers in the program below are read from DATA 
into a one-dimensional string array. Since the array has more than 11 
elements, we use the DIM statement in line 110. Lines 160 through 
190 check the numeral you enter to see that it is within the range for 
this program. Notice that in lines 210 and 220, integer division and 
the MOD operator are used. The integer division is faster than regu- 
lar division. The key part of this program is lines 210 through 230. 
Let's trace through this section of the program, using the number 743 
as our example. 

Line 210 NUMBER*(X\100) = NUMBER$<7) = "seven" 
X = X MOD 100 = 43 

Line 220 NUMBER$(X\10+18> = NUMBER* (22) = "forty" 
X = X MOD 10 = 3 

Line 230 NUMBER* (X) = NUMBERS (3) = "three" 

When this program is run, it looks like this: 



Enter a number between 1 and 999 or enter to end: 743 
The number is seven hundred forty three. 

Enter a number between 1 and 999 or enter to end: 212 
The number is two hundred twelve. 

Enter a nuiber between 1 and 999 or enter to end: 5 
The number is five. 

Enter a number between 1 and 999 or enter to end: 
0k 



Our second application uses the random number generator to deal 
poker hands. The important point here is to avoid the possibility of 
the same card showing up twice within the same round. 



Tutorial 10-2: Dealing Poker 




-=*DEAL.C10*=- 
Deal poker hands 
12/28/82 



100 DEFINT A-Z 
110 RANDOMIZE 
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(Tutorial 10-1: Continued) 

120 NO. CARDS - 52 

130 HAND.LEN = 5 

140 NO. HANDS = 5 

150 DIM CARD$(NQ. CARDS) 

160 INDEX$= BU 

170 FOR I = 1 TO NO.CARDS 

180 READ CARDt(I) 

190 INDEX* = INDEX*+CHR*iI) 

200 NEXT I 

210 FOR HAND = 1 TO NO. HANDS 

220 PRINT USING "Hand #: °;HAND; 

230 FOR I = 1 TO HAND.LEN 

240 CARD = INT(RND*LEN( INDEX*}) + 1 

250 PRINT USING *\ \ VCARD*(ASC(niD*(INDEX*.CARD,l>)); 

260 INDEX* = LEFT*(INDEX*.CARD - 1) + MIDtdNDEXt.CARD + 1) 

270 NEXT I 

280 PRINT 

290 NEXT HAND 

300 END 

310 

320 Card data. *, I. \ and § are suits 

330 

340 DATA 2*,3*,4*,5M*,7*,8*,9*,10* r j*,Q*,K*.A*- ' 
350 DATA 2#,3#,4#.5#,6i,7f,8#,9#,10#.J*,Qt,Kt.AI 
360 DATA 2\3\4\5\6\7\8\9\10\J\8 A ,K".A* 
370 DATA 2i,3e,4e,5§,6e,7i,S*,9#,lC«,..*,Q§,K§,A§ 

To see how this is done, first consider the FOR/NEXT loop, lines 
170 through 200. In line 190 the CHR$ function is used to assign a 
number to each card as it is read from DATA. The numbers are in 
sequence from 1 through 52 and are stored as characters in a string 
instead of as integers in an array. The nested FOR/NEXT loop in 
lines 210 through 290 controls the number of hands that are dealt and 
the number of cards dealt to each hand. Lines 240 through 260 choose 
the card and avoid the possibility of the same card being chosen 
twice. In the first pass through, line 240 chooses a random number in 
the range 1 to 52. This number points to a specific card. Line 250 
prints out the card and line 260 removes that card's index from the 
list so that the card cannot be chosen a second time. 

Suppose that the random number determined in line 240 was the 
number 29 (see Figure 10-3). The card that represents the twenty- 
ninth position in the list would be printed. Then in line 260, the 
number 29 would be removed from the list, and the INDEX$ 
numbers would range from 1 through 28 and from 30 through 52, as 
in Figure 10-4. In a second pass, even if the number 29 were chosen 
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1,2,3,...,28,29,30 52 

I 

Card to be 
removed 



Figure 10-3. 

Deck of cards before removing a card 



1,2,3 28,30,...,52 



Figure 10-4. 

Deck of cards after removing a card 



again, it would go to the twenty-ninth position in INDEX$, which 
would be a character with the ASCII value of 30, and the thirtieth 
card would be printed. 

This procedure is repeated until all five hands have been dealt. 
Each time the program returns to line 240, the length of INDEX$ 
has been decreased by 1, and therefore the range of the random 
numbers has been decreased by 1. 

When this program is run, it looks like this: 

RUM 

Huwkm nunber seed (-32768 to 32767)? 344 

Hand 1: Q' 4* AS 51 Kl 

Hand 2: 6# 6* J« K# 8* 

Hand 3: 10# 9# 6* A A 31 

Hand 4: 6§ J* Q* M OS 

Hand 5: 2t 3" 10* 2* 2* 

01 

RUN 

Randoi number seed (-32768 to 32767)? 343 

Hand 1: 5' 8# 9% 9* 10* 

Hand 2: 8 A 6* 2' 2# 2* 

Hand 3: 10* 6 A 9t Kfi At 

Hand 4: 6# 3# J« 86 10* 

Hand 5: 0* 28 71 At 5* 

01 
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Tutorial 10-3: Payroll 

We again return to our payroll program, which last appeared in 
Chapter 7. This time we add some of the instructions introduced in 
this chapter and in the previous chapter. 

10 REM - -=*PAYRQLL.C10*=- 

20 REM - Employee payroll 

30 REM - 1/2/33 

40 REM - 

1000 DEFINT A-i 

1010 OPTION BASE 1 

1020 MAX.EMP = 20 'Maximum number of employees 

1030 FORMAT* = "\" + SPACE* t 23) + "\ **####.##" 'Set print line format 
1040 DIM EMP . NAME* ( MAX . EMP ), EMP . RATE !( MAX . EMP ) 

1050 N0.EMP = Initialize no. of employees 

1060 PRINTLINE INPUT "Enter employee name: "; EMP. NAME* 

1070 IF EMP.NAME* = " THEN 1130 'Null string signals end 

1080 NO. EMP = NO. EMP + 1 'Increment employee count 

1090 PRINT USING "Enter pay rate for I: ";EMP.NAME*; 

1100 INPUT EMP. RATE! (N0.EMP) 

1110 EMP. NAME* (NO. EMP) = EMP.NAME* 

1120 IF N0.EMP <= MAX.EMP THEN 1060 'Must check for array bounds 

1130 PRINT: PRINT 

1140 TOTAL. WAGES = 'Initialize total wages 

1150 FOR 1 = 1 TO N0.EMP 

1160 EMP. EARN! = EMP. RATE! (I)*8 'Compute employee earnings 

1170 PRINT USING FORMAT* ; EMP . NAMES ( I ) ; EMP . EARN ! 
1180 TOTAL. WAGES! = TOTAL. WAGES! + EMP. EARN! 'Total employee wages 
1190 NEXT I 

1200 PRINT STRING*(LEN<F0RMAT*),"-"> 

1210 PRINT USING FORMAT*; "Total wages";T0TAL.WA6ES! 

1220 END 

In line 1010 we use OPTION BASE to set our first subscript to 1. 
In line 1030, FORMAT$ holds the output for our format statement. 
Notice the use of the SPACE $ function. This is more convenient (and 
usually more accurate) than pressing the space bar exactly 23 times. 
It is also more convenient to change the length of this string by 
changing the SPACE $ argument. 

In 1060, LINE INPUT is used instead of the INPUT statement so 
that employee names may be entered last name first and separated 
by a comma. Finally, in line 1200 the STRING$ function is used to 
set the number of hyphens needed to form the line that separates all 
of the employees' individual wages from the total wages. This is a 
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more convenient method of printing than having to enter 37 dashes in 
a string literal. 

When this program is run it looks like this: 



RUN 

Enter e»loyee nane: 

Enter pay rate for Ann Walters: ? 

Enter employee name: Barry Kulp 

Enter pay rate for Barry Kulp: ? 5 

Enter evloyee naae: Bill walker 

Enter pay rate for Bill Walker: ? 

Enter employee name: 



Ann Walters $60.00 

Barry Kulp $44.00 

Bill Walker $44.00 

Total wages $148.00 
0k 



EXERCISES 



1. Use a random number generator to generate a list with 
ten elements. Print out this list, and then print out the 
largest number in the list and the smallest number in 
the list. 

2. Use the list from the previous problem and print out the 
same results, along with the position in the list of the 
largest and smallest values. 

3. Given two sorted lists of ten numbers each, combine 
them into one sorted list. Use A(X) for the first list and 
B(Y) for the second list. Let the combined list be C(Z). 
Use the following data for the lists: 

DATA 7.14,15,19,24,31,38,41,43,4? 
DATA 1,3,13,14,27,29,35,37,40.44 
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4. Using the random number generator, fill a 4X5 array 
with integers in the range 10 to 99. Find and print out 
the largest value and the smallest value in the array. 

5. Using the array from the preceding exercise, add the 
elements from column 1 to the elements in column 5, 
and put these in column 5. Print the array before and 
after the addition of the columns. 

6. Use the random number generator to fill a 6X8 array 
with numbers in the range —50 to 50. Print the array 
and the largest number from each column. 



II. 

Advanced Tools 



CHAPTER 11: 
CHAPTER 12: 
CHAPTER 13: 
CHAPTER 14: 
CHAPTER 15: 

CHAPTER 16: 
CHAPTER 17: 



Working With Subroutines 
Sorting Numbers and Strings 
Debugging Your Programs 
Working With Sequential Files 
Working With Random-Access 



Using Boolean Operators 
Definirg Your Own Functions 
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Working With Subroutines 



Statements: ON/GOTO, GOSUB, RETURN, 
ON/GOSUB 



Up to this point we have made frequent use of the GOTO state- 
ment. The GOTO statement is used for simple branching and directs 
the computer to a specific line of the program. 



A variation of GOTO is ON/GOTO. This involves multiple or non- 
direct branching. Multiple branching allows your program to branch 
to any one of several line numbers based on a condition. The expres- 
sion following the ON must be reducible to an integer. The integer 
then tells the program which line of the optional list of line numbers 
to branch to. 



Multiple Branching 

[ON/GOTO] 
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The syntax of the ON/GOTO command is: ON expression GOTO 
linel, line2, line3, .... The expression is evaluated and rounded to an 
integer and must evaluate to between and 255. The result of the 
expression specifies which line number in the list is chosen for the 
GOTO. For instance, if A is 2, then ON A GOTO 100, 150, 500 would 
cause MBASIC to go to line 150. 

In the following example, if ANS is 1, the program branches to 
the first line number in the list (100); if ANS is 2, the program 
branches to the second number (200), and so on. The line numbers do 
not have to be in numerical order. The only thing that is crucial is 
their relative position after GOTO. 

10 INPUT 'Enter a number in the rangea-4): a :ANS 

20 ON ANS GOTO 100-200.250.400 

100 PRINT "Mem to line 100. C :EN6 

200 PRINT "Welcome to line 200.":ENB 

250 PRINT "Welcome to line 250.": END 

400 PRINT "Welcome to line 400.*: END 

RUN 

Enter a number in the ranqevl-4): ? 3 

Welcome to line 250. 

0k 

The maximum number of optional line numbers that can be speci- 
fied following GOTO is 255. You could easily enter as many as ten 
different line options on one line. What would happen if you answered 
the preceding INPUT question with a number greater than the 
number of line numbers? Try this with the previous example by 
entering an answer of 7: 



Enter a number in the rangeil-4): ? 7 

Welcome to line 100. 

0k 

If the expression following ON is greater than the number of lines 
you have specified as options, then the program will proceed to the 
next line after the ON/GOTO. It will also go to the next line if the 
expression is 0. 

In the next example, what follows ON is a slightly complex 
expression instead of a variable. 
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10 RANDOMIZE 

20 ON INT(5*RND>+1 GOTO 100,200,300.400 

100 PRINT "HekoM to line lOO.^ENS 

200 PRINT "Welcome to line 200.*:EI® 

300 PRINT "Welcome to line 300.":EN& 

400 PRINT "Welcome to line 400. :ENI- 

500 PRINT "Welcoae to line 500.*:ENB 



RUN 

Ran** nuiber seed (-32768 to 32767)-' 56 

Welcone to line 100. 

0k 

The expression INT(5*RND)+1 reduces to an integer in the range 1 
through 5. In this case, with a seed of 56, the expression is reduced 
to 1. 

Using Subroutines 

[GOSUB, RETURN] 

When you are writing programs in MBASIC, you will find that 
you frequently wish to perform the same operation more than once. If 
these operations are more than a couple of lines in length, it is 
worthwhile to write them once and "call" them each time they are 
needed. These calls are made with the GOSUB statement. Note also 
that the operations called up by the GOSUB statement are referred 
to as subroutines. Subroutines can be called from any point in your 
program. 

Before we get into applications that use subroutines, let's be sure 
that you understand the sequence in which lines are executed. Note 
that a GOSUB statement is always used in conjunction with a 
RETURN statement. When the program reaches the GOSUB state- 
ment, it immediately branches to the line indicated. When the pro- 
gram reaches the RETURN statement, it has completed the subrou- 
tine and transfers execution of the program back to the line following 
the GOSUB statement. 

Enter and run the following example: 

10 PRINT "On line 10" 

20 GOSUB 100 

30 PRINT "On line 30" 

40 G0SUE 100 

50 PRINT "fill done' 
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90 END 

100 REM This is the subroutine 
110 PRINT "In the subroutine" 
120 RETURN 

RUN 

On line 10 

In the subroutine 

On line 30 

In tne subroutine 

All done 

Ot 

Figure 11-1 shows the order of execution for this example. 

You may have several GOSUB commands in a program; in fact, 
you may have a GOSUB command within a subroutine. This is called 
a nested subroutine. In nested subroutines, the RETURN statement 
returns you to the line following the most recent GOSUB statement. 

10 PRINT ''On line W 

20 GOSUB 100 

30 PRINT "On line 30" 

40 GOSUB 100 

50 PRINT "All done" 

90 END 

100 REM This is the subroutine 
110 PRINT "In the subroutine' 
115 GOSUB 150 
120 RETURN 

150 REM Second subroutine 

160 PRINT "In the second subroutine'' 

170 RETURN 

RUN 

On line 10 

In the subroutine 

In the second subroutine 

On line 30 

In the subroutine 

In the second subroutine 

All done 

0k 

The sequence of line execution in the preceding program is shown 
in Figure 11-2. Subroutines are normally preceded by an END, 
STOP, or GOTO statement to prevent your program from entering 
these subroutines accidentally. 



Working With Subroutines 189 



Lines executed: 



10 PRINT 




50 PRINT 



PRINT 



RETURN 



REM 



90 END 
Order: 

10, 20, 100, 110, 120, 30 

40, 100, 110, 120, 50, 90 



Figure 11-1. 

Execution of a subroutine 



Lines executed: 
10 PRINT 



90 END 
Order: 

10, 20, 100, 110, 115, 150, 160, 170, 120, 30 

40, 100, 110, 115, 150, 160, 170, 120, 50, 90 




160 PRINT 



170 RETURN 



150 REM 



Figure 11-2. 

Subroutine within a subroutine 
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Multiple Subroutines 

[ON/GOSUB] 

The ON/GOSUB statement is similar to ON/GOTO in that the 
expression following ON reduces to an integer, which then tells the 
program which subroutine to transfer to from the list of line 
numbers presented. Enter and run the following program to be sure 
you understand the branching that occurs: 

10 PRINT "Hernia you like tor 

20 PRINT " li Convert meters to feet"' 

30 PRINT 2.i Convert liters to gallons'" 

40 PRINT 3) End?" 

50 INPUT 'Enter your choice (1-3): ": CHOICE 

60 ON CHOICE G0SUB 100.200.90 

70 GOTO 10 

90 END 

100 PRINT:PRINT "Subroutine: meters to feet" 
105 PRINT 
110 RETURN 

200 PRINT: PRINT "Subroutine: liter; to gallons' 
205 PRINT 
210 RETURN 

RUN 

Mould you like to: 

1) Convert meters to feet? 

2) Convert liters to gallons? 

3) End? 

Enter your choice (1-3): ? 1 
Subroutine: meters to feet 

Would you like to: 

1) Convert meters to feet? 

2) Convert liters to gallons? 

3) End? 

Enter your choice (1-3): ? 3 
Ok 

In the preceding example, lines 10 through 90 are referred to as 
the main program, while lines 100 through 110 and 200 through 210 
are the subroutines. Lines 105 and 205 could be replaced with pro- 
gram code to perform the conversions indicated in lines 100 and 200 
and to print the results. 

Because variables in MBASIC are global (that is, they retain their 
value wherever encountered in a program), you must be careful that 
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variables assigned in the main program do not conflict with the pur- 
pose of the subroutine. 

To illustrate this, let's rewrite the blast-off example of Chapter 7, 
using a subroutine: 

10 PRINT '-=* COUNT DOWN 

20 FOR X = 10 TO 1 STEP -1 
30 PRINT X 

40 G0SUB 80 fining ioop 

50 NEXT X 

60 PRINT '•-=* BLAST OFF »=-" 

70 END 

30 FOR X = 1 TO 500: NEXT I 

90 RETURN 



RUN 

-=* COUNT DOWN *=- 

10 
500 
500 
506 
500 
500 
506 
*C 

Break in 80 
0k 

If you run this program, you will notice that it goes into an endless 
loop. Can you tell why? The problem is that we have used the same 
variable X in the main program and in the subroutine. This is one of 
the most common programming bugs that arise when you use sub- 
routines in MBASIC. When you write a subroutine, it is very easy 
and, in fact, very natural to ignore the rest of the program and to 
concentrate just on the local purpose of the subroutine. 

As you write longer programs, you will find that using subrou- 
tines becomes more and more a standard part of your programming 
habits. You will also find that many of the subroutines you write for 
one program are very useful in other programs that you develop 
later. For this reason, it is worthwhile to document each subroutine 
thoroughly with REM statements at the beginning of the subroutine. 
These statements should include a list of variables the subroutine 
uses. Since all the variables in MBASIC are global, it is important 
that the variables do not conflict when you copy a subroutine from 
one program to another program. 
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TUTORIALS 



Tutorial 11-1: Math Quiz 



Our first application is a math quiz. This is a simple quiz in the 
four areas of addition, subtraction, multiplication, and division. 



40 REM - 
100 RANDOMIZE 
HO PLAY$="Y" 
120 WHILE PLAYt="'r 
130 PRINT 

140 PR0B=INT(RND*4.i+l 'Compute type of Probles 

150 ON PR0B G08UB 240,310,370,440 Print problem and get answer 

1*0 INPUT "= ? \RESf Get user resK«se 

170 IF RESP=ANS THEN G0SUB 500 ELSE G0SUB 58*) Check against answer 

180 PRINT: INPUT "Try another iV/'N.i? ",PUV» 

190 WEND 

200 END 



220 Addition proble* subroutine 

230 ■ 

240 A = INT(RNB*100> + 1 : B = INT(RND*100) + 1 
250 PRINT A:"+"iB: 
260 ANS = A + B 
270 RETURN 

280 

290 Subtraction problem subroutine 

306 ' 

310 ANS = INTOMMOCU + 1 : B = INTiRNB*100> + 1 
320 PRINT ANS+B:"-":B- 
330 RETURN 
340 

350 'Multiplication problem subroutine 

360 

370 A = INT(RND*12.i + 1:6 = INT(RND*12> * 1 

380 PRINT A:"*";B: 

390 ANS = A*B 

400 RETURN 

410 

420 Division proDlei subroutine 
4-30 •' 

440 ANS = INT(RND*12) + 1 : B = INTCRNDM2) + 1 
450 PRINT ANS'*B: " :B: 
460 RETURN 



10 REM - 
20 REM - 
30 REM - 



-=*MQUIZ.CU*=- 
Simple math qui: 
12/20/82 



210 
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(Tutorial 11-1: Continued) 
470 

480 Correct answer subroutine 
490 

500 ON INTiRND*3.i+l GOTO 510.520-530 

510 PRINT "That's right !":GOT0 540 

520 PRINT "Wov, you got it!":G0T0 546 

530 PRINT "Far out nan, you re Pretty smi't! 1 

540 RETURN 

550 

560 Wrong answer suDroutine 

570 

560 ON INT<RND*3)+i GOTO 590,600.610 

590 PRINT "Even I know that one."::G0T0 62& 

600 PRINT ">'ou can do better than that.'iiGOTO e2& 

610 PRINT "Well. o.k. so it was kind of hard.": 

620 PRINT " the correct answer is";ANS 

630 RETURN 

In line 110 the WHILE loop is initialized by setting PLAY$ to "Y". 
In line 140, a type of problem is chosen with a random number; the 
program then transfers from line 150 to one of the four subroutines. 
Each of these four subroutines will print a math problem and return 
with the correct answer in the variable ANS. 

Notice that in the subtraction and division subroutines, the 
answers are determined first, and then the problems are presented. 
This is to avoid the possibility of negative results in the subtraction 
problems and the possibility of decimal fractions in the division prob- 
lems. After the problems have been generated and printed on the 
screen, the program returns to line 160, where the user's response is 
recorded. 

In line 170, the response is checked against the correct answer, 
and again the program transfers to a subroutine to give an appropri- 
ate response. On returning to the main program, the user is asked 
about trying another problem. 

Random number seed (-32768 to 32767)? 222 
94 + 36 = ? 130 

Far out nan, you're pretty smart! 

Try another VIM? I 

101 - 34 = ? 67 
Far out nan, you're pretty smart! 
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(Tutorial 11-1: Continued) 
Try another (Y/N)? V 

110 - 13 = ? 97 
That '5 right! 

Try another (Y/N)? i 

41 10 = ? 50 

Even I know that one, the correct answer is 51 

Try another (Y/N)? I 
Ok 



Tutorial 11-2: Payroll 

We return again to the payroll problem. This time the program 
has been broken up into a main program with subroutines. In addi- 
tion, a menu has been added. 

10 REM - -=*PAYm.QS»=- 

20 REM - Customer payroll prcqrat 

30 REM - 12/27/82 

40 REM - 

1000 EO INT A-l 

1010 MAX.EMP = 20 Maximum number of employees 

1020 FORMAT* = V * SFACE*(23) + "\ $$#!»*.##" Set pri-t line forma; 
1030 DIM EHP.NM$i.MAX.EMP).EMP.RATE! (MAX.EMP. 

1040 N0.EMP = Initialize no. of employees 

1050 

1060 Main prosra* 
1070 

1080 PRINT:PRINT "-=< MENU >=-' 

1090 PRINT *ii Ente> names and pa* rates 

1100 PRINT "21 Compute wages' 

1110 PRINT "3) End' 

1120 PRINT: INPUT "Select? ".SELECT 

1130 IF SELECT < 1 OR SELECT 5 3 THEN PRINT "Invalid seie:uon.":G0T0 112* 
1140 IF SELECT = 3 THEN END 
1150 ON SELECT G0SUB 1200,1320 
1160 GOTO 1080 
1170 - 

1180 Enter employee names 
1190 

1200 IF N0.ENP = MAX.EMP THEN PRINT "tte wre room to add naaes,": RETURN 
1210 PRINTLINE INPUT "Enier ewiovee name <RETURN> for done: : :EMP.NMt 
1220 IF EMP.NM$ = THEN RETURN Null str ing signals end 



(Tutorial 11-2: Continued) 



1230 NO.EMF = NO. Off + 1 'Increment employee count 

1240 PRINT USING "Enter par rate for U ;EHP.*1»r 
1250 INPUT EMP.RATE! (NO.EMPi 
1260 EMP,NM$(N0.EMP.i = EMP.NM* 

1270 GOTO 1200 
12-90 

1306 Compute wages 
1310 " 

1320 PRINT:PRINT "Wages for 40 hour week":PRINT 

1330 TOTAL. WAGES = •Initialize total wages 

1340 FOR I = 1 TO NQ.EI* 

1350 EMP.EARN! = EMP.RATE if. I )*8 'Compute employee earnings; 

1360 PRINT USING FORMAT* ; EKP . NMt ( I .' ; EHP . EARN ! 
1370 TOTAL. WAGES! = TOTAL. WAGES! + EMF'.EARN! 'Total employee wages 
1380 NEXT I 

1390 PRINT STRING$iLEN(FORMAT$) , "-"> 

1400 PRINT USING FORMAT*; "Total wages" sTOTM.. WAGES! 

1410 RETUF* 

In line 1130, a check is made to see whether the selection is within 
the appropriate range for the menu. If it is, the program transfers to 
one of the subroutines either to enter names and pay rates or to com- 
pute wages. On completion, the subroutines always return to the 
main menu. 

RUN 

-=< MENU >=- 

1) Enter names and pay rates 

2) Compute wages 

3) End 

Select-' 1 

Enter e»loree name < RETURN) for done: Carolyn Atwooa 
Enter pay rate for Carolyn Atwood: 8.25 

Enter employee name ^RETURN) for done: Eric Brown 
Enter pay rate for Eric Brown: ? 8.00 

Enter employee name < RETURN) for done: Holly Reese 
Enter pay rate for Holly Reese: ? 8.25 

Enter employee name <RETURN> for done: 

-=< MENU >=- 

1) Enter names and pay rates 

2) Compute wages 

3) End 
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(Tutorial 11-2: Continued) 



Select'' 2 



Wages for 40 hour week 



Carolyn Atwood 
Eric Brown 
Holly Reese 



$66.00 
$64.00 
$66.00 



Total wages 



$196.% 



-=< (1 E N U >=- 

1) Enter names and pay rates 

2) Conpute wages 

3) End 

Select? 3 
0k 



1. Complete the ON/GOSUB example in this chapter by 
writing the conversion subroutines. Also add an addi- 
tional subroutine to convert Celsius to Fahrenheit. 

2. Generate a list of 50 random numbers in the range 1 
through 100. Give the user of the program the choice of 
requesting the largest or smallest number in the list. 
Use only one loop to find the requested number. (Hint: 
Use ON/GOSUB to do the comparison for largest or 
smallest number.) 



EXERCISES 




Sorting Numbers and Strings 



Statements: SWAP 



In order to sort numbers and strings, we must first consider the 
simple problem of exchanging the values of two variables. This is 
very useful when we want to rearrange the order of a list. 

Exchanging Variables 

[SWAP] 

For example, if we have a list consisting of the numbers 9, 4, and 
13, we can swap the first and second numbers to obtain the sorted list 
4, 9, and 13. If A=9 and B=4, what would we have to do to switch the 
values of A and B? Our first thought might be 

10 A = 9:B = 4 
20 A = B:B = A 
30 PRINT A;B 

m 

4 4 

Ok 
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This obviously does not work. As soon as we let A=B, the first 
value of A was lost from the computer's memory. What we need is a 
temporary holder. Here we will call the temporary holder T. 

10 A = 9:B b 4 

20 T = A 'T = 9 and A = 9 

30 A = B 'A = 4 and B = 4 

40 B = T "B = 9 

50 PRINT A;B 

■ 

4 5 
0k 

The net result of these three steps is to switch the values held in A 
and B. The variable T is useful in the same way that an empty bowl 
is useful when you want to mix some ingredients; or you can think of 
T as a kind of valet who holds your clothes while you are changing 
from one outfit to another. Also note that these three statements can 
be written on a single line in the following manner: 

20 T = A: A = B: B = T 

This is the old method of exchanging the values of variables. It is 
shown here because it is necessary with older versions of MBASIC, as 
well as with many versions of BASIC from other manufacturers. 
With newer versions of MBASIC, you can perform this exchange of 
variables quickly and easily with the SWAP statement. 

The SWAP statement is used to exchange the values for two vari- 
ables. Either string or numeric variables may be used as long as they 
are of the same type. For example, a double-precision variable must 
be exchanged with another double-precision variable. Otherwise, you 
will get the error message "Type mismatch". By using the SWAP 
statement, the previous program becomes 

10 A = 4:B = 9 
20 SWAP A,B 
30 PRINT A;B 

RW 

9 4 

0k 

The SWAP statement makes it easy to exchange two numbers. 
But what if we want to exchange three or more? Let's take as an 
example a program that places three numbers in order. The program 
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will generate three random numbers— A(l), A(2), and A(3) — in the 
range to 9. 

Print the numbers in the order generated. Then make whatever 
exchanges are necessary to print the numbers in numerical order 
going from the smallest to the largest. But before we do this, let's 
first construct a flowchart, shown in Figure 12-1. If you need a 
refresher on the flowchart symbols, see Tutorial 4-1. 



Generate and 
print 3 random 
numbers 



No 



No 



PRINT 
AUXA^.A^h 




Yes 




Yes 




Yes 



SWAP 
A(1).A(2) 



REM A(l) less than A(2) 



SWAP 
A(2),A(3) 



REM A(3) holds largest value 



SWAP 
A(1),A(2) 



•REM A(l) holds smallest value 



Figure 12-1. 

Sorting three random numbers 
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From our flowchart, we obtain the following program: 

10 RANDOMIZE 

20 FOR X=l TO 3 

30 AU)=INT(10*R») 

40 PRINT A(X), 

50 NEXT X 

60 PRINT 

70 IF A(1)>A(2) THEN SWAP A(1),A(2) 
80 IF A(2)>A(3) THEN SMAP A(2),A(3) 
90 IF A(1)>A(2) THEN SWAP A(1),A(2) 
100 PRINT AU).A(2),A(3> 



Randot mwoer seed (-32768 to 32767)? 23 

5 4 

4 5 

Ok 

Run this program enough times to obtain all possible orders of the 
randomly chosen numbers. Notice that it is important that you use 
the random number generator to produce your list rather than pick 
three numbers to test your program, since it is very easy to have a 
program work for a particular situation and not work for a similar 
one. For example, you might choose the numbers 3, 6, and 4 to test 
your program and find it works perfectly. But if the largest number 
was placed first, or two numbers the same size were in the list, the 
program might not work. Using the random number generator along 
with different seeds, on the other hand, will allow you to quickly test 
your program with all possible combinations of numbers. 

As you can see, putting three numbers in order takes considerably 
more code than putting two numbers in order. At first glance, it 
might seem that lines 70 and 90 do the same thing, but this is not so. 
In the preceding example, line 70 swaps 5 and 0. Line 90 then swaps 
5 and 4, since A(l) and A(2) hold different values in each line. 

Clearly, if we use this method to rearrange four or five or more 
numbers, the code would become too complex. Let's consider a gen- 
eral method for rearranging a list of numbers. Assume we have the 
following list: 5, 3, 6, 4, 1. We want to rearrange this list so that the 
order will be from smallest to largest. Our procedure will be to move 
one number at a time from left to right whenever necessary. To do 
this, we will compare adjacent pairs and swap only if the number on 
the right is smaller than the number on the left. 

Examine Table 12-1 closely. It shows our original list and the 
swaps that are necessary to arrive at a rearranged list. 
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Table 12-1. 

Rearranging a List 



* / 1 \ 

A(l) 


A(2) 


A (3) 


A(4) 


A (5) 






5 


3 


6 


4 


1 


Action Performed 




3 


5 








SWAP A(1)A(2) 




3 


5 


6 






No SWAP 




3 


5 


4 


6 




SWAP A(3),A(4) 




3 


5 


4 


1 


6 


SWAP A(4),A(5) 


1st Pass Complete 


3 


5 








No SWAP 

X 1 \J KJ Mill 




3 


4 


5 






SWAP A(2) A(3) 




3 


4 


1 


5 




SWAP A(3),A(4) 




3 


4 


1 


5 


6 


No SWAP 


2nd Pass Complete 


3 


4 








No SWAP 




3 


1 


4 






SWAP A(2),A(3) 




3 


1 


4 


5 




No SWAP 




3 


1 


4 


5 


6 


No SWAP 


3rd Pass Complete 


1 


3 








SWAP A(1),A(2) 




1 


3 


4 






No SWAP 




1 


3 


4 


5 




No SWAP 




1 


3 


4 


5 


6 


No SWAP 


4th Pass Complete 



The following program performs this procedure: 

100 RANDOMIZE 

110 DEFINT A-Z 

120 FOR X=l TO 5 

130 AU>=INT(RND*100)+1 

140 NEXT X 

150 G0SUB 270 

160 PRINT 

170 D0ME=0 

180 WHILE D0NE=0 

190 D0NE=1 

200 FOR X=l 10 4 

210 IF A(X) > A(X+1) THEN SWAP A(X).A(X+1):DONE=0 

220 NEXT X 

230 G0SUB 270 

240 WEND 

250 END 

260 ' 

270 FOR X=l TO 5 
280 PRINT A(X): 
290 NEXT i 
300 PRINT 
310 RETURN 
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Randci number seed (-32768 to 32767)? 



66 


16 


7«i 
I i 


55 


44 


16 


66 


55 


44 


72 


16 


55 


44 


6c. 


72 


16 


44 


55. 


66 


72 


It 


44 


55. 


66 


72 



Ok 



Lines 120 through 140 form a random list of five numbers. In line 
170 the flag DONE is set equal to 0, which initializes our WHILE/ 
WEND loop. In line 190 this flag is reset to 1. If a swap is made, line 
210 resets the flag to 0. If no swaps are made, the flag stays set equal 
to 1. The list is now in order and will be printed out in lines 270 
through 290. 



Bubble Sort 

Now let's consider a modification of the preceding program. It is 
called a bubble sort and is a very common and useful sorting routine 
for short lists. 

100 DEFINT A-Z 

110 S1ZE=100 

120 DIH A(SIZE) 

130 RANDOMIZE 

140 FOR 1=1 TO SIZE 

150 A(I)=INT(RND*200H1 

160 NEXT I 

170 PRINT "The unsorted array is:" 

180 G0SUB 270 Print unsorted array 

190 G0SUB 370 Sort array with Bubble Sort 

200 PRINT "The bubble sort array is:" 

210 60SUB 270 Print sorted array 

220 PRINT "Array sorted in";C0MP; "comparisons and" ;SUITCH; "swaps.* 

230 END 

240 ' 

250 'Print as array 

260 ' 

270 FOR 1=0 TO SIZE-1 STEP 10 

280 FOR J=l TO 10 

290 PRINT USING "Mt -;A<I*Jj; 

300 NEXT J 

310 PRINT 

320 NEXT I 
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330 RETURN 

340 ' 

350 'Bubble Sort 
360 ' 

370 PRINT "Sorting array: 
380 CWP=0:SWITCH=0 

390 FOR I = 1 TO SIZE - 1 
400 PRINT 

410 FOR >1 TO SIZE - I 
420 C0MP=C0HP+1 

430 IF A(J)>A(J+1) THEN SWAP A(J),A(J+1):SHITCH=SWITCH+1 
440 NEXT J 
450 NEXT I 
460 PRINT 
470 RETURN 



First note a couple of minor changes. In line 110 the size of our list 
is set equal to SIZE. Then in line 400 we insert a "heartbeat mes- 
sage" into the program. This can be thought of as a message that the 
program prints on the screen to inform the operator that the comput- 
er is still "alive." In other words, a heartbeat reminds the operator 
that something invisible is happening inside the computer. Other- 
wise, if the screen stayed the same while the computer was perform- 
ing some function, the operator might think that the program was in 
an endless loop or that it had malfunctioned. 

The major change from the previous program occurs in line 430. 
On each pass through the array, the largest number is located and 
moved to the right. Another way of thinking about this is to imagine 
that the largest number bubbles up to the end of the list. On each 
successive pass or scan through the array, therefore, the working size 
of the array is decreased by 1. The largest number is moved to the 
right end of the list, so that the size of the list that remains to be 
sorted is reduced. That is also the reason the heartbeat gets faster as 
the program progresses. The major advantage of thus reducing the 
workload is an increase in speed for the sort. 

An interesting addition to the program is the inclusion of the vari- 
ables COMP and SWITCH. Though not an essential part of the sort- 
ing and rearranging process, these variables keep a count of the exact 
number of comparisons and swaps that were performed in the execu- 
tion of the program. They are printed out after the final list is sorted 
and tell the total number of comparisons and the number of switches 
or swaps that took place during the program's execution. 
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Randoi number seed (-32768 to 32767)? 
The unsorted array is: 



!63 


21 


126 


189 


59 


36 


1 


130 


158 


71 


130 


23 


101 


51 


107 


39 


196 


181 


120 


1~ 


91 


161 


82 


78 


it 


54 


102 


77 


99 


127 


144 


130 


133 


156 


191 


91 


114 


187 


177 


97 


146 


171 


64 


152 


180 


200 


157 


55 


137 


186 


121 


47 


37 


77 


192 


62 


122 


96 


119 


117 


161 


115 


54 


53 


33 


17 


71 


72 


179 


156. 


45 


111 


118 


130 


26 


57 


151 


169 


45 


133 


!28 


189 


63 


194 


48 


82 


82 


25 


33 


137 


99 


122 


129 


61 


52 


155 


119 


111 


189 


95 



Sorting array: ****«w«*****#*#*****iti 



********************************** 
The bubble sort array is: 



1 


2 


17 


21 


23 


25 


26 


33 


33 


36 


37 


39 


45 


45 


47 


48 


51 


52 


53 


54 


54 


55 


57 


59 


61 


62 


63 


64 


71 


71 


72 


77 


77 


78 


82 


32 


82 


91 


91 


95 


96 


97 


99 


99 


101 


102 


107 


111 


111 


114 


115 


117 


118 


119 


119 


120 


121 


122 


122 


126 


127 


128 


129 


130 


130 


130 


130 


133 


133 


137 


137 


144 


146 


151 


152 


155 


156 


156 


157 


158 


161 


161 


163 


169 


171 


177 


177 


179 


180 


181 


186 


187 


189 


189 


189 


191 


192 


194 


196 


200 



Array sorted in 4950 coapansons and 2515 swaps. 



Searching an Array 

Sometimes it is useful to be able to scan a list rapidly to determine 
if a certain number or word is present in a given list or text. Let's 
suppose we have an array of numbers and we want to know if a 
number is in the array. In the first example, we will use a linear 
search. This method is much like looking through a deck of cards one 
at a time to find, say, the ace of spades. With linear search, we simply 
proceed through the array, one place at a time, until we find the 
number or until we come to the end of the array. 

110 DEFINT A-Z 
120 OPTION BASE 1 

130 SIZE = 100 This is the array size 

140 DIM A(SIZE) 
150 RANDOMIZE 

160 G0SUB 1000 Hake list 

170 G0SUB 1100 Print list 

180 INPUT "Nuiber to search for? ",N 
190 IF N=0 THEN END 
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200 GOSUB 1200 Search list 

210 IF INDEX=0 THEN PRINT "Not found* ELSE PRINT "Found af; INDEX 

220 GOTO 180 
1000 ' 

1010 'Hake an array of randc* nurters 

1020 

1030 FOR I = 1 TO SIZE 

1040 A(I) = INT(RND*100)+1 

1050 NEXT I 

1060 RETURN 

1070 

1080 'Print an array of mutters 
1090 

1100 FOR I = 1 TO SIZE 

1110 PRINT USING " tf*";A(I); 

1120 IF I MOD 15 = THEN PRINT 

1130 NEXT I 

1140 PRINT 

1150 RETURN 

1160 

1170 "Linear search for a nunber N 
1180 'INDEX will be zero if N is not found 
1190 ' 
1200 I = 1 

1210 WHILE I < SIZE AND Ad) <> N 
1220 1 = 1 + 1 
1230 UEND 

1240 IF Ad) = N THEN INDEX = I ELSE INDEX = 
1250 RETURN 

For this program we will first create and print out an array of 
100 random numbers from 1 to 100. The number to search for, N, is 
input at line 180. Inputting a here will stop the program. Line 200 
calls the search routine. The search routine will return with the vari- 
able INDEX = if N is not found. Otherwise, INDEX will be set 
equal to the subscript of the array where N was found. 

RUN 

Randoi nuitber seed (-32768 to 32767)? 1800 

17 63 26 97 21 100 71 65 10 30 10 41 71 84 86 

68 35 50 3 91 47 13 40 25 75 29 99 94 29 3 

39 81 8 15 63 13 62 98 12 70 45 58 100 38 1 

3 56 14 93 48 60 59 42 59 71 35 91 87 62 53 

26 93 3 48 100 40 67 46 91 91 54 90 35 90 25 

68 33 47 25 88 23 6 96 87 78 45 58 66 76 85 

100 43 55 48 97 17 60 75 100 22 
Nunber to search for? 91 
Found at 20 

Number to search for? 3 
Found at 19 
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Number to search for? 5 
Not found 

Number to search for? 
Ok 

The key part of this rather long example is the linear search sub- 
routine, lines 1200 through 1250. In particular, look at line 1210. It 
may not be obvious why we check for I < SIZE instead of I <= 
SIZE to see if we have looked through the entire array. To see what 
will happen, change the I < SIZE to I<= SIZE in line 1210. Run the 
program and enter a number to search for which is not in the array. 

1210 HHILE 1 <= SIZE AND Ad) <> N 

The program generates an error when N is not in the array. If we 
print I in the direct mode, we find that I is 101. The error message 
"Subscript out of range" is given when MBASIC tries the comparison 
A(101) <> N. The last time through the loop when line 1210 is exe- 
cuted, I is greater than SIZE. MBASIC is not smart enough to know 
that since I <= SIZE is false, the comparison A(I) <> N is not 
necessary; therefore, it executes the whole line anyway. 

When you process arrays, you should always carefully consider the 
boundary conditions. Go through the loop step-by-step to see that the 
loop starts and ends properly. 



Binary Search 

Now let's look at another method of searching. Let's suppose that 
we already have a numerically sorted list and that we want to search 
for a given number within this list. We could, of course, use the linear 
search method described earlier, but there are better methods of 
searching. 

Suppose, for example, that you want to look up the word "pro- 
gram" in a dictionary. You could start at the first page and scan 
through the entire dictionary, one page at a time. This would consti- 
tute a linear search and would take a long time. 

A faster method, which can be used only with a sorted list, is 
called a binary search. Imagine that you have a dictionary that does 
not have its words in alphabetical order. You would then have no 
choice but to scan the dictionary, using a linear search method to find 
the word. 
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Let's suppose that we have an array of numbers that is sorted 
from smallest to largest. We now want to know if a number N is in 
the array. Using binary search, we first compare the middle number 
in the array with N. If they are equal, we have found the number and 
can stop searching. 

But chances are that the search will not be quite so easy and that 
we will have to do more work. If N is greater than the middle 
number in the array, N is obviously somewhere in the higher half of 
the array. We can ignore the lower half. Likewise, if N is less than the 
middle number in the array, we know that N is in the lower half. We 
can therefore ignore the upper half of the array. 

Once we have eliminated half of the array from our scrutiny, we 
go on to compare N with the middle of the remaining portion of the 
array. Then we repeat the steps just outlined. In this way, we can 
eventually determine that N is not in the array when the remaining 
portion of the array can no longer be divided in half because it is only 
one number. 

Here is an example with 15 sorted numbers. The number (N) that 
we are searching for is 72. Initially, we set the low and high bounds 
of the array at 11 and 96, respectively. Then we compare N with the 
middle of the array. 

low Does N = 55? high 

<3> o o 

11 12 18 22 38 42 47 55 68 72 73 84 89 95 96 

Now remember that N is 72. Since N is greater than 55, we know 
that N must be in the upper half of the array. We therefore readjust 
the low point or bound. Since we know our number is greater than 
55, we reset the low point to the number at the right of the number 
we just looked at— that is, 68: 



11 12 18 22 38 42 47 55 68 72 73 84 89 95 96 

Our working array now ranges from 68 to 96. Each time we 
search the array, we compare N with the subvariable halfway 
between the low and high boundaries. In fact, the name "binary 
search" comes from this idea of cutting in half or continuously divid- 
ing the list by 2. 



low 



Does N = 84? 



high 
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Since N is less than 84, we move the high boundary to 73, making 
our new range 68 to 73. The next step looks like this: 

Does N = 72? 
low pi high 

o K> 

11 12 18 22 38 42 47 55 68 72 73 84 89 95 96 

We have found N, and we have done it in three comparisons. It would 
have taken ten comparisons to find N with a linear search. 

Now let's see what would happen if we search for a number that is 
not in the array. Let's assume N is 40. Here is the first step: 

low Does N = 55? high 

o c* <?■ 

11 12 18 22 38 42 47 55 68 72 73 84 89 95 96 

We know that N is not 55 and that it is less than 55, so we set the 
new high point at 47 and check N against 22: 

low Does N = 22? high 
<3> <z> o 

11 12 18 22 38 42 47 55 68 72 73 84 89 95 96 
Since N is greater than 22, we move the low boundary to point to 

38. 

Does N = 42? 
low r-i high 

o 4J- o 

11 12 18 22 38 42 47 55 68 72 73 84 89 95 96 

After comparing N with 42, we know that we must look to the left 
of 42, so we set the high boundary to point to 38. 

Now both the low and high boundaries point to the same location. 

Does N = 38? 
high 
low 

O 

11 12 18 22 38 42 47 55 68 72 73 84 89 95 96 

At this point we might conclude that the number N is not in the 
array, since both low and high boundaries point to 38. However, it 
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turns out that the program requires one more step. Since N is 
greater than 38, we set the low boundary to point to 42. 

high low 

11 12 18 22 38 42 47 55 68 72 73 84 89 95 96 

The low and high boundaries cross, which tells us that the number N 
is not in the array. 

Using the binary search method, we have determined, with four 
comparisons, that 40 is not in the array. It could have taken 15 com- 
parisons to come to this conclusion with the linear search method. 
Binary search is obviously much faster than linear search. If the 
number of elements in a list is small, of course, you probably would 
not notice the time difference between a linear and a binary search. 
The longer the list, the more time you save by using binary search. 
Keep in mind, however, that the list must be sorted before you can do 
a binary search. 

Here is a note for mathematics buffs. If you wish to search 
through a list of M elements using a linear search, the average 
number of comparisons needed is M/2 if the element is in the list, and 
M comparisons if the element is not in the list. The number of com- 
parisons required for a binary search is at most log 2 (M) whether or 
not the element is present. This means that for a list of 1000 items, 
only ten or less than ten comparisons are necessary. The actual time 
for a search is proportional to the number of comparisons. 

We still need to replace the linear search subroutine of the pre- 
vious search program with a binary search subroutine. Here is what 
the new program looks like: 

100 DEFINT A-Z 
110 OPTION BASE 1 

120 SIZE = 100 -This is the array size 

130 DIM A(SIZE) 
140 RANDOMIZE 

150 G0SUB 1000 "Make list 

160 G0SUB 1300 'Bubble sort array 

170 GOSUB 1100 'Print list 

180 INPUT "Nu»ber to search for? *,N 

190 IF N=0 THEN END 

200 GOSUB 1200 Search list 

210 IF 1NDEX=0 THEN PRINT "Not found" ELSE PRINT "Found atMWEX 
220 GOTO 180 
1000 ' 

1010 'Hake an array of randw mailers 
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1020 ' 

1030 FOR I = 1 TO SIZE 

1040 Ad) = INT(RND*100)+1 

1050 NEXT I 

1060 RETURN 

1070 ' 

1080 'Print an array of numbers 
1090 ! 

1100 FOR I = 1 TO SIZE 

1110 PRINT USING ■ ##f;A(I); 

1120 IF I MOD 15 = THEN PRINT 

1130 NEXT I 

1140 PRINT 

1150 RETURN 

1160 

1170 'Binary search for a number N 

1180 'INDEX will be zero if N is not found 

1190 ' 

1200 LOW = is HIGH = SIZE: INDEX = it 

1210 WHILE LOU <= HIGH AND INDEX = 

1220 I = (LOW + HIGH)\2 

1230 IF N = Ad) THEN INDEX = I 

1240 IF N < Ad) THEN HIGH =1-1 ELSE LOH = 1 + 1 

1250 MEND 

1260 RETURN 

1270 ' 

1280 'Bubble Sort 
1290 ' 

1300 PRINT "Bubble sorting array: *i 

1310 FOR I = 1 TO SIZE - 1 

1320 PRINT "*"; 

1330 FOR .1=1 TO SIZE - I 

1340 IF A(J) > A(J+1) THEN SWAP A(J).A(vHl> 

1350 NEXT J 

1360 NEXT I 

1370 PRINT 

1380 RETURN 

RUN 

Randal number seed (-32768 to 32767'"' 151? 

Bubble sotting array: «*«**^****»******«»^*it***t*M*****#***^*»**^<t* 

1 3 3 4 5 6 7 7 9 9 10 10 10 10 11 

11 11 12 14 15 15 16 19 19 19 20 21 21 22 23 

23 24 25 25 26 31 31 32 32 34 34 34 35 36 36 

36 36 38 42 43 44 45 47 52 55 56 57 58 59 60 

61 61 61 61 62 62 62 65 67 67 69 65 70 71 72 

73 76 78 80 80 80 81 83 83 S3 84 86 88 89 89 

91 §1 94 95 95 95 96 96 96 99 

Number to search for? 67 

Found at 69 
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Nuiber to search for? 11 
Found at 15 

Number to search for? 8 
Mot found 

Number to search for"' 
ft 

Line 1200 initializes the LOW and HIGH variables. It also sets 
INDEX to zero. Notice that the variable INDEX becomes nonzero 
when the number N is found in the array. Line 1210 controls the loop 
until the LOW and HIGH bounds cross or N is found in the array 
(signaled when line 1230 has set INDEX = I). Line 1220 sets I equal 
to the array subscript halfway between LOW and HIGH. In other 
words, I is the average of LOW and HIGH. 

Notice the integer division in the formula in line 1220. When 
LOW + HIGH equals an odd number, the integer division (by 2) will 
round down the result to an integer. The middle number or average 
of 5 and 10 is 7.5, but since we are using integer division, the result is 
7. Actually, it does not matter which way you round the number when 
LOW + HIGH is odd. The integer division was chosen because it is 
faster than single-precision division. 



A Faster Way to Sort 

We have seen that a binary search is much faster than a linear 
search. What about sorting? Is there a faster sorting algorithm than 
bubble sort? 

There are, in fact, many algorithms that are faster than bubble 
sort. Although bubble sort is actually one of the slowest sort methods, 
it is presented here because it is the easiest sorting algorithm to fol- 
low and because it is very useful for relatively short lists (that is, lists 
with fewer than 20 items). 

Our next example is one of the fastest sorting methods. This 
method is commonly referred to as quicksort. The quicksort method 
is based on two ideas. First, if the list to be sorted is cut in half, it 
takes only one-fourth as long to sort the list, not one-half as long, as 
might be expected. And second, although this may seem trivial, the 
key to most of the faster sorting algorithms is that a list that has only 
one or zero elements is already sorted. In fact, this is precisely what 
quicksort does: it takes a list of any length and breaks it into progres- 
sively smaller lists until each list has one or zero elements. 
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The first step is to pick a special number from the list that we will 
call the pivot number. The pivot number may be any number from 
the list. For simplicity, we select the first number in the list to be the 
pivot. 

The second step is to move the pivot number to the final position 
that it will occupy in the sorted list. To accomplish this, we must 
move all the other numbers, positioning them in relation to the pivot 
number. All numbers less than the pivot will be rearranged to the 
left of the pivot, and all numbers greater than the pivot will be re- 
arranged to the right of the pivot. Since the pivot number will now be 
greater than every number on its left and less than every number on 
its right, the pivot number is in the correct position and does not need 
to be considered again. Thus the list has, in effect, been partitioned 
in such a way that the original sorting problem is reduced to two 
smaller and simpler problems. The numbers to the left and right of 
the pivot number can now be thought of as two separate lists. 

The third step is to sort each of these two smaller lists of numbers. 
We sort the smaller list in the same way that we sorted the original 
list. In other words, we have to select a pivot number in each of the 
two lists and rearrange the remaining lower and higher numbers 
around it exactly as we did the first time. 

This procedure is said to be recursive because the procedure 
invokes itself in order to run. The dictionary defines recursive as "a 
procedure that can repeat itself indefinitely or until a specified con- 
dition is met." The idea behind the recursion in quicksort is to divide 
and conquer. At first we start with one large list to sort, and then we 
break it down into smaller and smaller lists, until each list contains 
not more than one item. When a sublist has been reduced to one ele- 
ment or no elements at all, the program stops working on that list 
and concentrates on the remaining sublists. 

100 DEFINT A-Z 
110 SIZE = 100 

120 DIM A(SIZE),STK(INT(L(K(SIZE)/L0G(2mi,2> 

130 RANDOMIZE 

140 FOR I = 1 TO SIZE 

150 A(I) = INT(RND*100) + 1 

160 NEXT I 

170 PRINT "The unsorted array is:" 

180 GOSUB 270 Print unsorted array 

190 GOSUB 350 'Sort array with Quicksort 

200 PRINT "The Quicksort array is:' 

210 GOSUB 270 'Print sorted array 
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220 PRINT "Array sorted in";C0MP: -comparisons and";S«ITCH;"swaP5." 
230 END 

240 ' 

250 'Print an array 

260 ' 

270 FOR I = 1 TO SIZE 

280 PRINT USING "•## ";AUh 

290 IF I MOD 10 = THEN PRINT 

300 NEXT I 

310 RETURN 

320 ' 

330 'Quick Sort 

340 ' 

350 PRINT "Quicksorting array: 
360 SP=1:C0MP=0:SWITCH=0 
370 STK<SP,1>=1:STK(SP,2)=SIZE 
380 WHILE SPXi 
390 PRINT "*"; 

400 L=STK(SP, 1):R=STK(SP.2):SP=SP-1 
410 WHILE L<R 
420 I=L:J=R:S=1 
430 WHILE KJ 
440 COflP=C0rf > +l 

450 IF A(I)>A(J) THEN SWAP A(Ij,A(J):S=-S:SWITCH=SHITCH+l 

460 IF S=l THEN 1=1+1 aSE J=J-1 

470 WEND 

480 IF R-IXR THEN 520 

490 IF J-DL THEN SP=SP+l:STK(SP,l)=L:STK(SP,2}=J-l 

500 L=I+1 
510 GOTO 540 

520 IF I+KR THEN SP=SP+1:STK(SP,1)=I+1:STK(SP.2)=R 

530 R=J-1 

540 WEND 

550 WEND 

560 PRINT 

570 RETURN 



RUN 

Randoi number seed (-32768 to 32767)? 5511 
The unsorted array is: 



16 


32 


72 


69 




78 


39 


75 


4 : 5 


88 


94 


86. 


64 




40 


24 


4 


35 


18 


98 


89 


30 


g 


10 


70 


8 


100 


£ 


32 


67 


61 


23 


72 


14 


32 


3 


64 


42 


56 


38 


46 


15 


86 


89 


57 


84 


46 


37 


14 


13 


86 


31 


56 


99 


60 


35 


76 


38 


10 


72 


100 


61 


55 


51 


60 


52 


66 


47 


55 


83 


86 


59 


29 


17 


32 


97 


50 


93 


68 


37 


25 


5 


75 


37 


72 


28 


34 


21 


94 


29 


85 


87 


13 


8 


77 


52 


55 


79 


60 


34 



Quicksorting array: *****^«*««#^*«*««***^*^^*^*##**»**»»**t 
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The Quicksort array is: 



2 


3 


3 


4 


5 


8 


8 


8 


10 


10 


13 


13 


14 


14 


15 


16 


17 


18 


21 


23 


24 


25 


28 


29 


29 


30 


31 


32 


32 


32 


32 


34 


34 


35 


35 


37 


37 


37 


38 


38 


39 


40 


42 


45 


46 


46 


47 


50 


51 


52 


52 


55 


55 


55 


56 


56 


57 


59 


60 


60 


60 


61 


61 


64 


64 


66 


67 


68 


69 


70 


72 


72 


72 


72 


72 


75 


75 


76 


77 


78 


79 


S3 


84 


85 


86 


86 


86 


36 


87 


88 


89 


89 


93 


94 


94 


97 


98 


99 


100 


100 



Array sorted in 670 comparisons and 201 swaps. 
0k 



You will see that quicksort is much faster than bubble sort if you 
compare the relative number of comparisons and swaps necessary for 
quicksort and bubble sort. If you have some time, you can try work- 
ing with a bigger array. Set SIZE = 1000 instead of 100 and run 
both of the sort programs to compare times. Quicksort's performance 
(measured in number of sort items per time) actually increases for 
larger arrays, whereas bubble sort's performance decreases very 
quickly. 

Mathematics buffs may be interested to note that the running 
time to bubble sort M elements is proportional to M 2 . In contrast, the 
running time for quicksort is proportional to log 2 (M). For a small 
number of elements these running times are about the same, but as 
M gets bigger, the difference in running times increases rapidly. 

Because MBASIC does not support recursion, the quicksort pro- 
gram is rather complicated, with the extra code necessary to simu- 
late recursion. For instance, you may have noticed the peculiar DIM 
statement for the two-dimensional STK array. The formula 
INT(LOG(SIZE)/LOG(2))+l is log 2 (SIZE) rounded up to the near- 
est integer. This variable is a stack and is used to simulate the recur- 
sion necessary for quicksort. 

While there are many advantages to quicksort, the bubble sort 
approach has one property that most faster sorting algorithms like 
quicksort do not have, which is that bubble sort is so much easier to 
program and debug. In fact, the bubble sort method is so simple that 
it can be even faster than quicksort for arrays smaller than about 20 
elements. 

The main point is this: first use an easy sorting method like bub- 
ble sort to solve your problem, and then replace it with something 
more complicated like quicksort if the original performance must be 
improved. For most purposes, easy is best. 
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TUTORIALS 



Tutorial 12-1: Test Scores 



This program is used to sort a list of names and test scores. This 
needs to be done both alphabetically and by rank. We will use the 
quicksort routine for both sorts. The quicksort program that we used 
earlier in this chapter requires one important addition so that when 
the list is sorted alphabetically, the scores will be transferred along 



with the names. The addition is that w^h en the list is sorted by rank, 



the names also have to be transferred with the appropriate scores. 



100 DEFINT A-Z 
110 READ SIZE 

120 DIM NH*(SIZEi,SCnRE(SIZE.i.STK(INT(L0CiiSIZE)/L0G(2))+l,2; 

130 FOR I = 1 TO SIZE 

140 READ NM$U),SC0RE(Ij 

150 NEXT I 

160 PRINT: PRINT "The unsorted array is:" 

170 GOSUB 300 'Print unsorted array 

180 SORT = 1 'Set to sort by name 

190 GOSUB 380 Sort array with Quicksort 

200 PRINT: PRINT "Alphabetical list:" 

210 GOSUB 300 Print sorted array 

220 SORT = 2 'Set to sort by score 

230 GOSUB 380 Sort array with Quicksort 

240 PRINT:PRINT "List by scores:" 

250 GOSUB 300 Print sorted array 

260 END 

270 

280 Print an array 

290 

300 PRINT: PRINT "Nane Score" 
310 FOR I = 1 TO SIZE 

320 PRINT USING "\ \ t#i";N«$(Ij;SC0R£a> 

330 NEXT I 

335 PRINT : PRINT "Press RETURN"; : A*=INPUT$(1) 
340 RETURN 

350 

360 'Quick Sort 

370 ' 

380 SP=1:STK(SP,1)=1:STK(SP,2)=SIZE 
390 WHILE SP>0 

400 L=STK(SP,1):R=STK(SP,2):SP=SP-1 




10 REM - 
20 REM - 
30 REM - 



-=*SC0RES.C12*=- 
Quicksort naaes and scores 

12/27/82 
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(Tutorial 12-1: Continued) 

410 WHILE L<R 

420 I=L: J=R:S=1 

430 WHILE KJ 

440 ON SORT GOSUB 600,650 

450 IF C0HP = 1 THEN SNAP NM*U),NM$(J):SWAP SC0RE(I),SC0RE(J):S=-S 

460 IF S=l THEN 1=1+1 &SE .t=J-l 

470 WEND 

480 IF R-DJ-L THEN 520 

490 IF J-DL THEN SP=SP+1:STK(SP.1)=L:STK<SP,2}=J-1 

500 L=I+1 
510 GOTO 540 

520 IF I+KR THEN SP=SP+1:STK(SP.1>=I+1:STK(SP,2)=R 

530 R=J-1 

540 WEND 

550 WEND 

560 RETURN 

570 

580 Coepare nanes NH$U) and NH$(J) with result in COf 

590 

600 IF NWU) > NH*(J) THEN COfF = 1 ELSE COM* = 
610 RETURN 

620 ' 

630 Twpare scores SCORE(I) and SCORE(J) with result in COMF 
640 ' 

650 IF SCOREU) < SCORE(J) THEN COM* = 1 ELSE COMP = 
660 RETURN 

670 ' 

680 'Naae and score data 

690 ' 

700 DATA 10 

710 DATA "SIhTLSON, GEORGE*, 83 
720 DATA "FRIBURGER, RITA", 73 
730 DATA "SHIFFON, CLOVER", 93 
740 DATA "ARMADILLO. ABIGAIL*. 45 
750 DATA "FAIRCHILD, FRED*, 55 
760 DATA "BUttX CECIL*,67 
770 DATA "ROGERS, RALPH", 89 
780 DATA "ZAT, MICHAEL", 100 
790 DATA "TYLER, J0HNY*,66 
800 DATA "STAFFOR, LIITO!",78 



In lines 180 and 220, the flag SORT is set to either 1 or 2, depend- 
ing on whether the sorting is by rank or is alphabetical. Within the 
main body of the quicksort routine, line 440 sends the program to the 
subroutine at 600 or 650, again depending on whether the list is to be 
sorted alphabetically or by rank. When it returns to line 450, if the 
variable COMP (for comparison) is equal to 1, the swap of both 



Sorting Numbers and Strings 217 

names and scores is made. When the alphabetical sort is completed, 
the program returns to line 210 and is then sent to the print routine 
at line 300. 

When the printing is completed for the alphabetical list, the pro- 
gram performs a quicksort on the scores. On completion of this opera- 
tion, the program returns to line 240 and is then sent back to the 
print routine for the final printing of the list by rank. 



RUN 



The unsorted array is: 


Name 


bcore 


MnrLSUN, UtUKut 




rrutSUKutK, K1IA 


7Q 
J$ 


SHIFFON, CLOVER 


93 


ARMADILLO, ABIGAIL 


45 


FAIRCHILD, FRED 


55 


BUMPLY, CECIL 


67 


ROGERS, RALPH 


89 


ZAT, MICHAEL 


100 


TYLER, JOHNY 


66 


STAFFOR, LIMPER 


78 


Press RETURN 




Alphabetical list: 




Name 


Score 


ARMADILLO. ABIGAIL 


45 


BUMPLY, CECIL 


67 


FAIRCHILD, FRED 


55 


FRIBURGER, RITA 


73 


ROGERS. RALPH 


89 


SHIFFON, CLOVER 


93 


SIMPLSON, GEORGE 


83 


STAFFOR, LIMPER 


73 


TYLER, JOHNY 


66 


ZAT, MICHAEL 


100 


Press RETURN 




List by scores: 




Name 


Score 


ZAT, MICHAEL 


100 


SHIFFON, CLOVER 


93 


ROGERS, RALPH 


89 


SIMPLSON, GEORGE 


83 
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(Tutorial 12-1: Continued) 

STAFFOR, LIMPER 7S 

FR I BURGER, RITA 73 

BUMPLY, CECIL 67 

TYLER, JOHNY 66 

FAIRCHILD, FRED 55 

ARMADILLO. ABIGAIL 45 

Press RETURN 
Ok 



Tutorial 12-2: Payroll 

We will now include a binary search routine in our payroll pro- 
gram. When new names are added, the program first checks to see 
whether the name is already on the list. If the name is on the list, the 
program prints the name on the screen and allows you to change the 
pay rate. 



10 REH - -=*PAYR0LL.C12*=- 

20 REM - Customer payroll progra» 

30 REH - 12/27/82 

40 REM - 

1000 DEFINT A-Z 

1010 MAX.EMP = 20 'Maxima number of employees 

1020 FORMATS = *\* + SPACE$(23) + "\ ttHI4.lt" Set print line fornat 
1030 DIM EMP.NMt(MAX.EMP),EMP.RATE! (MAX.EMP) 

1040 N0.EMP = Initialize no. of employees 

1050 TRUE = 1: FALSE = 6 
1060 ' 

1070 Main program 
1080 ' 

1090 PRINTrPRINT "-=< MENU >=-" 

1100 PRINT "D Enter nases and pay rates' 

1110 PRINT "2) Compute wages" 

1120 PRINT °3) End" 

1130 PRINT: INPUT "Select? ".SELECT 

1140 IF SELECT < 1 OR SELECT > 3 THEN PRINT "Invalid selection. *:G0T0 1130 

1150 IF SELECT = 3 THEN END 

1160 ON SELECT GOSUB 1210,1350 

1170 GOTO 1090 

1180 

1190 'Enter employee names 
1200 ' 

1210 IF N0.ENP = MAX.EMP THEN PRINT "No ware room to add na«es.":RETUR« 
1220 PRINTLINE INPUT "Enter enployee naae or <RETURN> for done: ":EHP,NHt 
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(Tutorial 12-2: Continued) 



1230 
1240 
1250 
1260 



IF EMP.NN* = " THEN RETURN 

GOSUB 1610 

IF FOUND = TRUE THEN 1280 



GOSUB 1490 



'Null string signals end 
Search for name 



Insert name at INDEX 



1270 GOTO 1290 

1280 PRINT USING "Name found, pay rate is *«.## /hour. "; EMP.RATE ! ( INDEX) 
1290 PRINT USING "Enter pay rate for fc: ■;£»>.»»: 

1300 INPUT EMP.RATE! (INDEX) 
1310 GOTO 1210 
1320 ' 

1330 'Compute wages 
1340 ' 

1350 PRINT: PRINT "Wages for 40 hour week":PRINT 

1360 TOTAL. WAGES = 'Initialize total wages 

1370 FOR I = 1 TO NO.EMP 

1380 EMP.EARN! = EMP.RATE! ( I )*8 ■ Compute employee earnings 

1390 PRINT USING FORMAT* ;EMP.NN*( I) ;EHP.EARN! 
1400 TOTAL. WAGES! = TOTAL. WAGES! + EMP.EARN! Total employee wages 
1410 NEXT I 

1420 PRINT STRING*(LEN(FORMAT*)."-") 

1430 PRINT USING FORMAT!; "Total wages"; TOTAL. WAGES! 

1440 RETURN 

1450 ' 

1460 'Insert employee name EMP.NM$ at INDEX 
1470 'We assume NO.EMP < MAX.EMP 
1480 ' 

1490 NO.EMP = NO.EMP + 1 

1500 FOR I = NO.EMP TO INDEX ♦ 1 STEP -1 

1510 EHP.NHtd) = EHP.NNtd - 1) Slide names up one 

1520 EMP.RATE! (I) = EMP.RATE! (I - 1) 'Move pay rates with names 

1530 NEXT I 

1540 EMP.NM*( INDEX) = EMP.NM$ Insert name at propper spot 

1550 RETURN 
1560 ' 

1570 'Binary search for EMP.NM*. FOUND = TRUE if name is found otherwise 
1580 'FOUND = FALSE. If the name is found INDEX will point to the name. 
1590 'If the name is not found INDEX will point where the name should go. 
1600 ' 

1610 LOW = 1: HIGH = NO.EMP: FOUND = FALSE 

1620 WHILE LOW <= HIGH AND FOUND = FALSE 

1630 INDEX. = (LOW + HIGH) \2 

1640 IF EMP.NW* = EHP.NMt(INDEX) THEN FOUND = TRUE 

1650 IF EMP.NM* < EMP.NM$(INDEX) THEN HIGH = INDEX - 1 ELSE LOW = INDEX *■ 1 
1660 WEND 

1670 IF EHP.NH* > EMP.NM*( INDEX) THEN INDEX = INDEX + 1 
1680 RETURN 
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The subroutine starting at line 1210 first checks to see whether 
the maximum number of employees has already been entered into 
the program. If not, you can enter the new employee name. The pro- 
gram then calls the binary search subroutine that starts at line 1610. 

At line 1610 the flag variable FOUND is initialized to the variable 
FALSE. The program then proceeds with the binary search to 
determine whether or not the name is already in the file. If it is, the 
flag FOUND is set equal to TRUE. If the name is not found, then the 
variable INDEX will contain the subscript indicating the correct 
place in the list to add the new employee. 

It is important that you understand the conditional branch at 
1250. If the name has been found, the name does not have to be 
inserted in the list since it is already there. You therefore proceed to 
1290, where you are given the opportunity to change the pay rate. If 
the name has not been found, line 1260 transfers you to the subrou- 
tine at 1490. This subroutine opens up a space in the list of employees 
so that the new name may be inserted in the proper alphabetical 
position. (Remember that the list must always be kept in alphabetical 
order if the binary search routine is to work properly.) You are then 
returned to line 1270, where pay rates may be entered, and then back 
to line 1210, where a new employee name may be entered. You can 
also press RETURN if you wish to go back to the menu. 

At line 1670 there is an important addition to the binary search 
routine. If the name has not been found on the list when the program 
exits the WHILE loop at line 1660, the pointer (INDEX) may either 
be at the name before or at the name after the correct name. Line 
1670 ensures that the pointer is always moved to the name following 
the point where insertion should take place. 

When the program runs it looks like this: 

RIM 

-=< MENU >=- 

1) Enter names and pay rates 

25 Compute wages 

3) End 

Select? 1 

Enter employee name or <RETURN> for done: Foster, Tina 
Enter pay rate for Foster. Tina: ? 5.75 

Enter employee name or (RETURN) for done: Hall. George 
Enter pay rate for Hall, George: ? 5.00 
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(Tutorial 12-2: Continued) 

Enter employee name or <RETURN> for done: Billings, Jennifer 
Enter pay rate for Billings, Jennifer: ? 5.50 

Enter employee name or < RETURN) for done: 

-=< MENU >=- 

1) Enter names and pay rates 

2) Compute wages 

3) End 

Select? 2 

Wages for 40 hour week 

Billings, Jennifer $44.00 
Foster, Tina $46.00 
Hall, George $40.00 



Total wages $130.00 

-=< H E N U >=- 

1) Enter names ana pay rates 

2) Compute wages 

3) End 

Select? 3 
0k 



EXERCISES 



1. Use the random number generator to generate 50 
words. Count the number of words that begin with each 
letter of the alphabet. Then print out the list in alpha- 
betical order and the count for each letter. 

2. Generate three random numbers in the range 50 to 150 
and print them out in descending order. 

3. Consider a simple guessing game in which a computer 
chooses a random number between 1 and 100 and you 
try to guess what the number is. The computer will tell 
you if your guess is too low, too high, or correct. If you 



were to use a binary search in this game, what would 
be the maximum number of guesses required to pick 
the correct number? If the computer were to pick a 
random number from 1 to 1000, what would be the 
maximum number of guesses required to pick the cor- 
rect number? 

4. Use the linear search routine to write a program to find 
how many times a given number occurs in a list of 100 
random numbers. Find the position of each occurrence. 




Statements: ERROR, ON ERROR, RESUME, 
STOP 

Variables: ERL, ERR 
Commands: TRON, TROFF, CONT 



The process of writing a program can be divided into three major 
steps: planning, writing, and debugging. Before you start typing code 
into the computer, you have to decide what information the program 
is going to use, what algorithms or rules will manipulate that infor- 
mation, and what format the output will take. Debugging is the act of 
finding all the problems that can cause a program to malfunction. 
These problems can be as simple as a syntax error. Longer programs 
with many branching statements may have logic errors that only 
show up when program flow is carefully traced. 

As a rule of thumb, the planning, writing, and debugging phases 
of program development each require approximately the same 
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amount of time. If the planning stage is shortchanged, you will prob- 
ably have to make up for this false economy in the debugging portion 
of development. 

Why do programs need to be debugged at all? The reason is that 
programming is a very exact art and programmers are not perfect. 
So much precision is required that as your programs become longer 
and more involved, errors are almost inevitable. 

There are two general categories of errors, both of which you will 
encounter frequently when you are programming. They are run time 
errors and program logic errors. Let's consider each in turn. 



Run time errors are the most common and usually the easiest 
errors to correct. Listed in two groups in Figure 13-1 are some of 
MBASIC's more common error messages. You have probably encoun- 
tered most of these error messages in your programming. 

The run time errors in Group 1 all point to two-part statements 
that have been left incomplete. Although such errors are generally 
easy to find, spotting them in multiple nested loops is more difficult. 
For this reason, in FOR/NEXT loops you should always specify the 
appropriate variable following the NEXT (for example, NEXT I). 

The run time errors in Group 2 cover a wider variety of pro- 
gramming mistakes. Let's consider each of the errors in this group in 
turn. 



Syntax errors generally occur for one of the following reasons: 
either you have misspelled a word or you have used a keyword as a 



Run Time Errors 



SYNTAX ERRORS 



GROUP 1 

NEXT without FOR 
RETURN without GOSUB 
FOR without NEXT 
WHILE without WEND 
WEND without WHILE 



GROUP 2 

Syntax error 
Out of data 
Type mismatch 
Undefined line 
Division by zero 
Illegal function call 



Figure 13-1. 

Common run time errors 
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variable or you have used an incorrect format for the particular key- 
word you are working with. When MBASIC encounters a syntax 
error, the program immediately terminates and places you in edit 
mode. The line number that contains the error is then shown on the 
screen. Press L if you wish to see the complete line. You now have full 
use of the editor to correct any syntax errors. 

OUT OF DATA 

Out of data errors occur when you try to read past the end of the 
statement's data. This is usually caused by READ statements in an 
endless loop. 

TYPE MISMATCH 

A type mismatch error usually means that you have used a string 
variable or constant where a numeric variable or constant is 
required, or vice versa. Type mismatch errors occur in functions if 
an argument for the function is of the wrong type. For example, the 
command PRINT ASC(32) will generate a type mismatch error 
because the ASC function requires a string, not a number, as its 
argument. Note that if a function has more than one argument, a 
type mismatch error may refer to any of the arguments. 

A type mismatch error can also occur in an assignment state- 
ment. Setting a numeric variable equal to a string or vice versa con- 
stitutes a type mismatch error. 

Finally, using a double-precision variable for the counter in a 
FOR/NEXT loop will give a type mismatch error. 

UNDEFINED LINE NUMBER 

An undefined line number error indicates that a program- 
branching statement attempted to transfer control to a nonexistent 
line number. 

DIVISION BY ZERO 

Division by zero is undefined in mathematics and, of course, will 
give an error if attempted in MBASIC. MBASIC assigns all variables 
to a value of unless you explicitly assign a value to the variable. For 
example: 

to PRINT A/B 
20 PRINT B 
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Rum 

Division by zero 
1.70141E+38 




Eft 



Since we did not assign a value to B, it has the value 0, which is 
assigned by MBASIC. The cure, of course, is to be sure that a divisor 
always has a value assigned to it before it is used. Note that the pro- 
gram continues to run after the error message is printed. 

ILLEGAL FUNCTION CALL 

An illegal function call error generally occurs when the argument 
for the function is outside the legal range. For instance, both of the 
following lines will generate an "Illegal function call" error message. 

10 PRINT SQR(-l) Can not take square root of negative nusber 

20 PRINT CHR$(300) " ASCII code must be less than 256 

The errors are easy to see in these examples but may be hard to 
spot if the arguments are complex algebraic expressions or other 
functions. 

Now consider the following program. It contains several errors. 
Try running the program each time we fix an error. 

10 REM BUG. C 13 
20 READ A(X) 

30 IF A$i.X)="END' : THEN 100 
40 M+t 
50 GOTO 20 

60 DATA 'SMITH. SAM", "LYONS, MIKE". "JONES. MARY", "END" 

200 FOR Y=l TO 4 

210 C0MHA=INSTR(A»m.". M 

220 PRINT MID$(A$(Y).CuMHA+2); a " ; LEFT$ ( A ( Y i , COMMA- i ) 
230 NEXT Y 



According to the computer, the first error is in line 60. But if you 
look closely, you will see that the first error is actually in line 20. It 



Rt» 

Srntax error in 60 



0k 




20 READ A*(X) 



Debugging Your Programs 227 



The point is that MBASIC cannot determine whether the variable or 
the data is wrong. Therefore, although you might have expected a 
type mismatch error, the error message only indicates the syntax 
error in line 60. 

Now that we have corrected the first error, we will run the pro- 
gram again. 

RIM 

Undefined line mincer in 30 
Ok 

We change line 30 to read 
30 IF A$(X)= "END" THEN 200 

Run the program once again. 



HIKE 

Type 11 snatch in 220 

Ot 

Again, a $ has been omitted in the first parameter, A(Y), of 
LEFT$. To correct this error, change A(Y) to A$(Y) in line 220. In 
this case, the type mismatch error is given because a string variable 
is required with the LEFT$ function. Run the program again. 

run 

nike lvons 

«ARY ..ONES 
ND 

Illegal function call in 220 
0k 

There are really two errors here that you should notice: first, the 
first name in the list should be SAM SMITH; and second, an illegal 
function call occurs in line 220. Sam is left out because we did not 
initialize the subscript X when the list was read. Remember that the 
default value for a variable is 0. To correct this, enter the following 
as line 15: 

15 X = 1 

An illegal function call error is usually not immediately apparent. 
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If you do not see it right away, print out the parameters for any func- 
tions that occur in the line that contains the error in direct mode. 
Here is how we do this for line 220: 




We know now that COMMA has the value 0. Look at the end of line 
220 and notice the expression COMMA— 1. The value for COMMA— 1 
is —1. This is outside of the legal range (0-255). 

To correct the error, look back at line 210 where COMMA is 
assigned. Its job is to search for the position of the comma and space 
characters between the last and first names. When the INSTR func- 
tion cannot find this in the dummy data, "END", COMMA is 
assigned the value 0. Thus the correction in this case is to change line 
200 to read 

200 FOR V - 1 TO 3 



An even better solution would be to substitute X— 1 for the 3 in 
line 200. This solution is better because it makes the program more 
general. It allows you to enter additional names into the DATA 
statement without changing any other portion of the program. The 
new program now reads 



10 REM BUGC.C13 
15 X=l 

20 READ mi) 

30 IF A$(X)="END" THEN 200 
40 X=X+i 
50 GOTO 20 

60 DATA "SMITH. SAT. "LYONS, HIKE*. "JONES, MARY". "END* 

200 FOR Y=l TO 3H 

210 CQMHA=INSTRi.A$(Yj,". M 

220 PRINT MIDtiA$(Y).C0MMA+2}; B ";LEFT*(A$iY>,C0mA-l i 
230 NEXT Y 



SAM SMITH 
HIKE LYONS 
MARY JONES 
0k 
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Program Logic Errors 

The second category of common MBASIC errors is program logic 
errors. Program logic errors are generally the more difficult to cor- 
rect because when a program logic error has occurred, the program 
runs through to completion but the output is incorrect. 

In order to minimize these errors, careful preplanning is required. 
Long programs should be developed in modules, and each module 
should be tested before it is combined with the rest of the program. A 
module is a section of a program that performs a specific task. For 
example, a simple program might contain just three modules: an 
input module in which data is entered into the program, a section in 
which the data is manipulated, and finally a module that formats and 
prints the results. Test each module with sample data that has known 
results. 

A useful technique for developing a program is to use PRINT 
statements between modules. These statements show your output at 
each stage. When the program is finished and the output is verified, 
these extra PRINT statements can be removed. 

Remember that the most damaging assumption a programmer 
can make is that the output of the computer is always correct. Always 
keep in mind the computer aphorism, "Garbage in, garbage out." 

Six important guidelines can save you time in program develop- 
ment. First, understand the problem; second, identify input and out- 
put; third, formulate a precise statement of the problem; fourth, 
develop your algorithm; fifth, translate the algorithm to MBASIC; 
and sixth, test the algorithm with simple data. 



Trapping Errors 

fON ERROR, ERROR, ERR, ERL, RESUME] 

As we have just seen, MBASIC detects many errors. When one of 
these errors is detected, MBASIC either places you back in direct 
mode or, in the case of a syntax error, it puts you in edit mode. 

But MBASIC has another error feature that allows you to define 
and then detect errors in your program. This is called error trapping 
and may be defined as the process of handling errors that occur in a 
program. For example, suppose you maintained a mailing list in 
which all the people lived within a limited number of ZIP codes. You 



could design an error trap that would call to the computer operator's 
attention any ZIP code that was entered that was outside the desig- 
nated area. 

You can design this trap not only to detect the errors you define, 
but also to help you decide what action to take when an error is 
detected. What is more, you are not limited to trapping the errors you 
design; you may also trap any of the errors MBASIC automatically 
detects. 

The following section will explain how to make a program handle 
certain types of errors so that program execution may continue. The 
section of the program that decides what to do when an error occurs 
is called the error-trapping routine or just the error routine. 

AN ERROR ROUTINE AS A SUBROUTINE 

An error routine is similar to a subroutine (subroutines were dis- 
cussed in Chapter 10). Three statements (ON ERROR, ERROR, and 
RESUME) and two variables (ERR, ERL) form the basis for error- 
trapping routines. 

The ON ERROR GOTO statement is used to select an error- 
trapping routine. You may have as many error routines as you wish, 
but only one error routine may be used at a time. Assuming line 100 
is the first line of an error-trapping routine, the statement ON 
ERROR GOTO 100 causes your program to branch to the error rou- 
tine when there is an error. What happens in the error routine is 
entirely up to you. 

Let's start with a simple example that transfers control to an 
error routine. 

10 ON ERROR GOTO 100 
20 PRINT "See you at:" 
30 PRNT "Line 30" 
40 PRINT "Line 40' 
90 END 

100 PRINT "SKI- 



RUN 

See you at: 
BOO 

No RESUME in 100 
0k 

In line 10 we tell MBASIC where the error trap is located. The pro- 
gram then proceeds normally until it encounters the error in line 30 
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(the I missing from PRNT). It then transfers control to line 100 and 
takes whatever action the program designates. 

Notice the statement END at line 90. Since an error trap is a 
subroutine, it should be preceded by either END or a branching 
statement to prevent accidental entry into the subroutine. Do not be 
concerned about the message "No RESUME in 100" yet; we will dis- 
cuss this message shortly. 

IDENTIFYING THE ERROR AND LINE 

Just printing BOO in our error trap is not very productive. We 
can use the MBASIC variables ERR and ERL to print out the error 
code and line number of the error. The variables ERR and ERL are 
generally used together. ERR is the variable that holds the error 
number, while ERL holds the line number of the line that contains the 
error. Each MBASIC error has a code number. These codes are listed 
in Appendix C along with the corresponding error message. Exam- 
ples of error codes are listed in Table 13-1. 

Let's return to the example of an error-trapping routine. Replace 
line 100 with the following: 

100 PRINT ERL. ERR 

Run the program and you have 



ERR and ERL are used by the error-trapping routine to tell the user 
what error has occurred and where it occurred. In the output here, 



Table 13-1. 

Examples of Error Code Numbers 



See you at: 
30 2 
No RESUME in 100 
0k 



Error Message 



Error Code 



Syntax error 
Illegal function call 
Type mismatch 
Disk full 



2 
5 
13 
61 
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the 30 informs you that the error occurred in line 30 and the 2 tells 
you the error is a syntax error. Now we will take care of the "No 
RESUME" message. 

CONTINUING THE PROGRAM AFTER AN ERROR 

After an error-trapping routine has taken appropriate action, 
such as informing the user of the error or adjusting some variables to 
remedy the error condition, the RESUME statement is used to con- 
tinue the program. RESUME is to an error trap what RETURN is to 
a standard subroutine, except that with RESUME you may resume 
at any line number in the program. 

There are three formats for RESUME. The first, RESUME or 
RESUME 0, resumes at the statement that caused the error. The 
second, RESUME NEXT, resumes at the statement following the one 
that caused the error. And the third, RESUME linenumber, resumes 
program execution at the linenumber. Which format you use, of 
course, depends on your program. For the example we are working 
with, add the following at line 110: 

110 RESUME ttXT 

Run the program and you have 



See you at: 

30 

Line 40 
0k 



In this example, after printing the error code and line number, the 
program resumes at line 40. The program prints Line 40 and then 
ends. 

Note that MBASIC initially has error trapping turned off. This 
means that MBASIC does not branch to an error-trapping routine 
when an error occurs, but instead simply prints an error message 
and stops, leaving you in either direct or edit mode. When you use the 
ON ERROR GOTO statement to specify an error-trapping routine, 
you have turned on the error trapping. Once the error trapping has 
been turned on, it remains on until you turn it off. 

ERROR TRAPPING IN DIRECT MODE 

Since the error trapping in the last example was not turned off 
when the program ended in line 90, the error trapping remains on 
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even in the direct mode. If you attempt to run the program again and 
make a direct mode error, such as typing RUM instead of RUN, you 
will get the following output: 

(5535 2 
Ok 

Typing RUM instead of RUN generated a syntax error and 
therefore the error code 2. The line number 65535 is the way 
MBASIC informs you that the error occurred in direct mode. 



TURNING OFF AN ERROR ROUTINE 

The command used to turn off an error trap is ON ERROR GOTO 
0. This command has two uses, depending on where the command is 
executed. 

If ON ERROR GOTO is executed in any portion of the program 
outside of the error-trapping routine, all subsequent errors will cause 
MBASIC to stop and print the appropriate error message. It is used 
in this manner simply to turn off error trapping and to let MBASIC 
handle any errors in its usual manner. 

If, however, ON ERROR GOTO is executed inside an error- 
trapping routine, MBASIC will stop execution and print the error 
message for the error which caused the error-trapping routine to be 
executed. An error-trapping routine should use ON ERROR GOTO 
whenever there is an error that the error routine is not equipped to 
handle. 

As an example of turning off error trapping, change line 100 and 
run the following: 

100 IF ERR <= 90 THEN ON ERROR GOTO 



See you at: 
Syntax error m 30 
0k 

30 



Since the error is a syntax error (code 2), line 100 turns error trap- 
ping off and the error is handled in the standard manner. 

With error trapping now off, a direct mode error will be handled 
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in the usual way. Type RUM now and you will get the following: 
RUM 

Syntax error 
Ok 

RENUMBERING PROGRAMS WITH ERR AND ERL 

In an assignment statement, ERR and ERL must be on the right 
of the equal sign since ERR and ERL are reserved words. If you use 
the RENUM command to renumber your program and if a relational 
operator is used with ERL and a line number, the number must be 
on the right in order for it to be renumbered correctly. 

For example, change line 100 in our example: 

100 IF ERK100 AND ERR=2 THEN PRINT ■Line*:ERL:"has a syntax error" 

This line will print the message Line XX has a syntax error if a 
syntax error (code 2) occurred in a line number less than line 100. 
Run the program and you have 

RUN 

See you at: 

Line 30 has a syntax error 

Line 40 

Ok 

If the program is renumbered with the RENUM command, the 
expression ERL<100 will automatically be changed to reflect the 
renumbered line 100. On the other hand, if we use the expression 
100>ERL instead (which is equivalent to ERL<100), the RENUM 
command will not change the 100 to reflect any renumbered lines. You 
will most often want to place line numbers to the right of ERL so that 
they can be renumbered. Try renumbering the preceding program 
and notice that the expression ERL<100 has changed. 

RENUH 
Ok 

LIST 

10 ON ERROR GOTO 60 
20 PRINT "See you at:" 
30 PRNT "Line 30" 
40 PRINT "Line 40" 
50 END 

60 IF ERL<60 AND ERR=2 THEN PRINT "Line":ERL:"has a syntax error' 

70 RESUME NEXT 

Ok 
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SIMULATING AIM ERROR 

If you look at Appendix C, you will notice that the highest error 
code listed there is code 67 (for "Too many files"). Actually, there are 
255 different error codes (1 to 255). It is possible to assign the extra 
188 error codes for your own use. For instance, a program might use 
error code 200 to mean "Invalid ZIP code entry". Using your own 
error codes becomes increasingly useful as your programs become 
longer and more complex. 

To allow you to define your own error codes, the ERROR state- 
ment simulates the occurrence of an error. The syntax for the 
ERROR command is 

ERROR errornumtier 

where the errornumber is the number of the error you want to 
simulate. 

Since MBASIC uses the smallest numbers for its codes (1 through 
67), the safest idea is to start at the top (255) and work down when 
assigning your error codes. This way there will be less chance of con- 
flicting error codes with later versions of MBASIC. 

Now consider the following program. 

10 ON ERROR GOTO 500 

20 INPUT "What is ;our zip";IIPt 

30 IF ZIP*="'?4520" OR ZIP$="94522" THEN PRINT ZIP* ELSE ERROR 255 
40 END 

500 IF ERR <> 255 OR ERL <> 30 THEN ON ERROR GOTO 
510 PRINT "That is noi a valid zip code; try again." 
520 RESUME 20 

ZIP codes are to be entered, but the program accepts only the two 
ZIP codes 94520 and 94522 and rejects any others. Line 10 selects the 
error-trapping routine; when any error is encountered, MBASIC will 
branch to line 500. Line 30 checks to see if the proper ZIP code was 
entered. If it was not, line 30 sets the error code to 255 with the 
ERROR statement. Line 500 determines whether the error that 
invoked the error-trapping routine was a result of a wrong ZIP code 
entry. If it was, the program informs the user of this by printing line 
510. The program then transfers execution back to line 20 for the 
ZIP code to be reentered. If the error occurred for some other reason, 
the ON ERROR GOTO statement at the end of line 500 causes the 
program to stop and print an appropriate error message. 
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Running the program gives the following output: 

run 

What is your zip"' 94533 

That is not a valid zip code; try again. 

What is your zip? 94522 

94522 

Ok 

Note that you may use the ERROR statement even when the error 
trapping is off. If you use ERROR with the error trapping off, 
MBASIC will print the message "Unprintable error" for those error 
codes with no available error message (that is, error codes greater 
than 67). As an example, run the following: 

20 INPUT "What is your zip";ZIPt 

30 IF ZIPt="94520" OR ZIP$="94522" THEN PRINT ZIP* ELSE ERROR 255 
40 END 



RUN 

What is your zip? 94533 
Unprintable error in 30 
Ok 



ERRORS NOT HANDLED BY THE ERROR TRAP 

To illustrate the full use of the ON ERROR GOTO 0, add line 25 to 
our earlier ZIP code example: 

25 INPUT "What is your name" 

The variable that is required after an INPUT statement has been 
omitted. An error not handled by the error trap has been encountered. 
Run the program again: 

What is your zip' 94520 
Syntax error in 25 
Ok 
25 

The ON ERROR GOTO in line 500 turned the error trapping off 
and caused MBASIC to report the error in the normal way. Since line 
25 contains a syntax error, MBASIC automatically entered the edit 
mode. 
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Here are two more examples of error trapping. They illustrate a 
couple of important points. Consider the output from the following: 

10 ON ERROR GOTO 100 
20 A$ = 838 
30 PRINT "B00" 
40 ON ERROR GOTO 
50 PRINT CHR$(-1) 
60 END 

100 PRINT ERR, ERL 
110 RESUME NEXT 

■ 

13 20 
BOO 

Illegal function call in 50 
Ok 

When the program is run, line 10 turns the error trapping on, and 
line 20 generates an error. The program then transfers to 100. Line 
100 prints out the error number for a type mismatch (13) and the line 
number (20). The program resumes on line 30, which prints the out- 
put BOO. In line 40 error trapping is turned off with the ON 
ERROR GOTO command. 

Notice that this use of ON ERROR GOTO did not do the same 
thing as it did in the previous set of examples. In particular, it did not 
cause the program to stop and print the error that occurred in line 20 
because the ON ERROR GOTO was executed outside of the error- 
trapping routine (that is, after the RESUME statement was exe- 
cuted). Since the error trapping is turned off in line 40, program 
execution halts when the error in line 50 is reached, and MBASIC 
handles the error in the normal way with the message "Illegal func- 
tion call in 50". 

AIM ERROR TRAP AS AN INTERNAL TRAP 

When you debug longer programs, you will want to put internal 
checking into your program. An internal check is a statement in your 
program that checks one or more variables to see that they are within 
the proper range. 

For instance, a subroutine that prints out totals for an employee's 
income may want to check to see that the totals are actually positive 
numbers. A negative total income in this case is obviously a pro- 
gramming error, which might be caused by a bug in a pay deduc- 
tions routine. In such a situation, you could use error code 255 to 



signal an "Internal error". Your error-trapping routine could then 
detect these types of internal errors and instruct the user to call a 
programmer. In Chapter 14 you will see an application of this kind of 
internal checking with an error-trapping routine. 

It takes some practice to get used to error trapping. Used prop- 
erly, however, error trapping is a very useful programming tool. 

Other Debugging Techniques 

There are other methods for debugging your programs. MBASIC 
allows you to trace your program step-by-step or to exit to command 
level at appropriate moments to check the values of variables. 

TRACING YOUR PROGRAMS 

[TRON, TROFF] 

MBASIC has another versatile command, TRON, that is useful 
when program errors persist. The TRON command, which stands for 
"trace on," prints on the screen the line numbers of your program in 
the sequence in which they are executed. 

The TRON command is particularly useful in a program that has 
several subroutines. The program runs in the normal manner, except 
that a line number is printed as each line is executed. You can then 
check whether or not branching has occurred as you intended. You 
may use the command from the direct mode by giving the TRON 
command and then running your program, or you can use TRON as a 
statement in your program at a particular line number in order to 
trace a limited section of your program. 

Once the TRON command has been issued, it stays in effect until 
the TROFF command ("trace off) is used; in other words, TROFF 
turns TRON off. The TROFF command may also be given in direct 
mode or used as a statement in the program. 

The following program is the first sorting routine introduced in 
Chapter 12. We have made two minor changes in the program so that 
you may test your debugging skills. You might first look through the 
program to see if you can spot any errors. Then run the program and 
repair the errors that MBASIC reports. Finally, use TRON to see if 
the program follows the sequence you expect. It is possible that after 
one correction, the program may appear to run correctly if you make 
a lucky choice for the random number seed. Try three or four differ- 
ent values for the seed before you decide that the program is fully 
debugged. 
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100 RANDOMIZE 
110 DEFINT A-Z 

120 FOR X=l TO 5 

130 A(X)=INT(RND*100)+1 

140 ICXT X 

150 GOSUB 270 

160 PRINT 

170 DONE=0 

180 WHILE B0NE=0 

190 D0NE=1 

200 FOR X=l TO 4 

210 IF A(X) > A(X+1) THEN SWAP AU),A(X+1):D0NE=1 
220 NEXT X 
230 GOSUB 270 
240 WEND 

260 •' 

270 FOR X=l TO 5 
280 PRINT A<X): 
290 NEXT X 
300 PRINT 
310 RETURN 

USING THE COMMAND MODE FOR DEBUGGING 

[STOP,CONT] 

A powerful tool in debugging a program is the STOP statement. 
This statement is used to stop execution of a program. When pro- 
gram execution reaches the line containing the STOP statement, the 
program halts and gives the message "Break in line nn", where nn is 
the line number. The program then returns you to direct mode. 

Enter and run the following: 

10 X=5 
20 PRINT X 
30 X=X+5 

40 IF 1=100 THEN END 
45 STOP 
50 GOTO 20 

RUN 

5 

Break in 45 
Ok 

From direct mode, you may print the value held by any of the vari- 
ables in your program, such as 



10 
0k 
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When you have finished inspecting the variables, you can continue 
the program with the CONT command. Program execution will con- 
tinue at the line number following the line number indicated by the 
break message. 

com 

10 

Break in 45 
Ok 

You may also change the value of any of your variables. In the 
following example, we change the value of the variable X and con- 
tinue the program with the CONT command: 

1=35 
Ok 

CCNT 

m 

Break in 45 
Ok 

You cannot, however, continue the program with CONT after using 
the editor or adding or deleting program lines. Only program vari- 
ables may be altered if you wish to continue the program. 

You may place as many STOP statements in your program as you 
think are necessary in order to inspect the results at any particular 
point in the program. You can do this at the beginning of modules, at 
the end of modules, or within modules. When the program is com- 
pletely debugged, these STOP statements may be removed. 

DEBUGGING BY MODULES 

As mentioned earlier, longer programs should be developed in 
modules. For instance, you might have a section of the program that 
prints the menu, another that controls input, and a third that controls 
output. When you are working with these modules, keep in mind that 
all variables in MBASIC are global. In other words, a variable used 
in one subroutine will continue to retain its value in another subrou- 
tine. You should therefore be careful when you use the same variable 
name in two different subroutines. If two subroutines use the same 
variable name, be sure that one subroutine does not allow the other 
accidentally or unexpectedly to alter the value of the variable. 

It is also important to ensure that the program does not enter sub- 
routines accidentally. Subroutines should always be preceded by a 
GOTO, RETURN, or END statement, so that the program cannot 
accidentally move into these areas. 



Debugging Your Programs 241 



EXERCISES 



1. Write a program that allows names, birth dates, and 
phone numbers to be entered with an INPUT state- 
ment. Incorporate into the program an error trap that 
will force the user to reenter the phone number or birth 
date if any character other than the numerals through 
9, — , or / is entered. Enter both phone number and birth 
date as strings. 

2. Write a program to read and print out the following 
names: "RITA FRYBURGER", "SUZAN BLOND", "JOE 
SIMPLE", "EGBERT ZZT", "VLADIMIR PUF". Use 
error trapping instead of dummy data to determine and 
print the length of the list. 




Working 
With Sequential Files 



Statements: OPEN, WRITE#, PRINT#, 
CLOSE, INPUT#, CHAIN 

Functions: EOF 



Until this point, we have only worked with small amounts of data. 
The information to be processed in programs has been stored in 
DATA statements. In many cases, this is a good method of storing 
information, but in other cases, the computer's memory may not be 
able to hold all the information required. This is especially likely to 
happen when programs are very long or when the amount of data is 
very large or when both these conditions exist. 

The alternative to storing information in DATA statements is to 
use data files. A data file is a collection of information that is stored 
on disk and that can be called in by your program when it is ready to 
process the data. The only limit to the amount of data that can be 
stored in this manner is the capacity of your disk system. 
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Using Data Files 

MBASIC supports two types of data files: sequential and random- 
access files. The word "file" has a variety of meanings in computer 
terminology. For example, all the programs you have written are 
called files when they are saved on the disk. What is more, the 
MBASIC program itself is a file. Here we are specifically concerned 
only with data files of the sequential and random-access type. 

It is important to know that a data file is made up of a collection 
of records. A record, in turn, is a collection of data; all records in the 
data file contain similar types of data. For example, each record in a 
file might consist of the name, age, and telephone number of a per- 
son. Data files may consist of only a few records or of thousands of 
records. 

One difference between sequential and random-access files is that 
sequential files have records of variable lengths, while random-access 
files have fixed-length records. This means that each record in a 
sequential file can have a different number of characters. In a ran- 
dom file, however, all the records have the same length. In both types 
of files, MBASIC reads and writes an entire record at a time. 

A second difference is that if you are working with a sequential 
file and you want to find some information in one of these records, 
you must start at the beginning of the file (record number 1) and 
move in sequence through the records, checking the data in each one 
until you find the information you are interested in. On the other 
hand, if your file is random-access, each record in your data file has a 
record number, and you can move directly to any record in your file 
by specifying this record number. 

Both types of data file have their advantages and disadvantages. 
The type of file you choose should be determined by the practical 
requirements of the application you are working with. We will con- 
sider sequential files in this chapter and random-access files in the 
next. 



Naming Data Files 

Data files are given names just like any other file you work with 
in MBASIC. The rules for naming data files are the same as for other 
files: the file name may have up to eight letters plus an optional 
three-letter extension. The data file name always remains the same 
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unless, of course, you use the RENAME command to change the file 
name or the KILL command to get rid of the file completely. 

Sequential Files 

The major advantage of the sequential file is efficiency of data 
storage; in effect, there is less wasted disk space. Figure 14-1 illus- 
trates the concept of a sequential file. 

A sequential file can consist of records of many different sizes. A 
record is usually a set of related items: for example, names, ad- 
dresses, and telephone numbers. Each item within a record is called 
a field of the record. The fields are separated by commas. Signifi- 
cantly, there is no wasted space between the fields; although fields 
may vary in length, all of the space in the file is used. 

A sequential file must be read in sequence. This means that the 
file is read consecutively beginning with the first field of the first 
record and continuing to the end. If you are interested in the data 
fields in record number 199, you must pass through the first 198 
records in order to look at that record. 

Writing to a Sequential File 

[OPEN, CLOSE, WRITE#, PRINT#] 

There are three steps to entering data in a sequential file: opening 
the file, writing the data, and closing the file. 



RECORD 1 RECORD 2 RECORD 3 RECORD 4 





























Field 
1 


Field 
3 


Field 
2 





Field Field Field 

2 1 3 



Figure 14-1. 

Records in a sequential file 
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To open a file you use the OPEN command. The syntax for the 
OPEN command for sequential files is 

OPEN mode*, #f ilenumber, filename* 

where mode$ is either "0" or "I", filenumber is a number between 1 
and 14, and filename$ is the name of the file that you are opening. 
The number sign (#) is optional, although it is commonly used. You 
can open sequential files either in output mode (0) or input mode (I). 
If you open a file in output mode, you are telling MBASIC that you do 
not care about the current contents of the file and that you only want 
to write to the file. You cannot write to a file that has been opened in 
input mode. 

As many as three data files may be opened at the same time by 
default. Be sure to assign a different number to each data file opened. 
MBASIC then does any further writing to or reading from the file by 
referring to the file number. 

In addition, each file you write to must have a name. This is the 
name that will appear on the disk when you use the DIR command 
from CP/M or the FILES command from MBASIC. The extension 
".DAT" is commonly used for data files. 

Here is an example of the OPEN command: 

OPEN "0". It, "CALORIE. DAT' 

The "O" stands for output and tells MBASIC that data is to be writ- 
ten to the disk. If the file already exists, its current contents will be 
lost. The #1 is the number of the file, and CALORIE.DAT is the file 
name. 

If you want to open more than three files at one time, you must 
specify the number of files in the MBASIC command as /F:nnn, 
when nnn is the maximum number of files you are using. For exam- 
ple, to use as many as five files, invoke MBASIC with the command 

MBASIC /F:5 

Once you have opened the file, you can write data to it with either 
the PRINT# or WRITE # command. We will explain the difference 
between these two commands shortly. The formats for them are 

PRINTif ilenumber, expressions 
HftITE#f ilenumber, expressions 
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where filenumber is the number you assigned the file in the OPEN 
command. These two commands work just like the PRINT com- 
mand, except that they write a record to a file, not to the screen. For 
example: 

PRINT tl, F00D$; TYPE*; UHIT*;CAL 

In this example our records consist of four fields: FOOD$, TYPE$, 
UNITS$, and CAL. 

To close a file you use the CLOSE command. The syntax for this 
command is 

CLOSE tfilenumber 

where filenumber is the number you assigned with the OPEN com- 
mand. If you give the CLOSE command without a filenumber, 
MBASIC closes all files that are open. After a file has been closed, its 
number can be reused in another OPEN command. 

Now let's construct a program that will write data into a sequen- 
tial file. We will write a program that will store the following items 
in a file: foods, type of food, serving unit, and number of calories per 
serving unit. Use the data from Table 14-1. 

Keep in mind that when you are through entering data into a file, 
the file must be closed. 

160 OPEN "0",#1, "CTABLE.DAT" 

110 PRINT: INPUT "Food nane: ".FOOD* 

120 IF F00D*="» THEN GOTO 180 

130 INPUT "Type: ".TYPE* 

140 INPUT "Unit serving: ".UNIT* 



Table 14-1. 

Sequential File Data 



Food 


Type 


Unit 


Calories 


Apricots 


Dried 


3 oz. 


260 


Beans 


Green 


3 oz. 


33 


Beef 


Sirloin 


1 oz. 


110 


Chocolate 


Sweet 


1 oz. 


150 


Carrots 


Fresh 


1 oz. 


12 


Fruit cocktail 


Canned 


1 cup 


91 


Noodles 


Egg 


8 oz. 


881 


Rice 


Brown 


1 cup 


232 



150 INPUT "Calories per unit: ",CAL 
160 WRITE #1 , F00D$; TYPE*; UNIT$: CAL 
170 GOTO 110 
180 CLOSE tl 
190 END 

When the user presses RETURN with no other entry in response to 
the prompt in line 110, the program transfers to line 180, where the 
file is closed. 

Now enter each item when the program is run: 

RUN 

Food name: Apricots 
Type: [tried 
Unit serving: 3 oz. 
Calories per unit: 260 

Food name: Beans 
Type: Green 
Unit serving: 3 oz. 
Calories per unit: 33 

Food nane: 

Ok 

After entering a portion of this data, save your program and exit 
to CP/M with the SYSTEM command. Use the TYPE command to 
display the file on the screen: 

A>TYPE CTABLE.DAT 
"Apricots", "Dried". "3 oz.".260 
"Beans". "Green". "3 oz.\33 
A3 

Each line is a record, and each record contains three strings and 
one number, while each of these items is a field of the record. Notice 
that the records have different lengths and that the fields begin at 
different columns in the record. 

Now return to MBASIC and load the program again. Change the 
WRITE # statement in line 160 into a PPJNT# statement with the 
same variables, and then run the program and enter the data exactly 
as you did before. This time when you return to CP/M and display the 
file, you will have 



Working With Sequential Files 249 



A>TYPE CTABLE.DAT 

ApricotsDriedS oz. 260 
BeansGreen3 oz. 33 

A> 

The PRINT# statement does not separate fields with quotation 
marks and commas. In most cases you will therefore want to use the 
WRITE# statement so that you can determine where the fields in 
each record are. The PRINTS statement is used for advanced or spe- 
cialized applications in which the data file is to be considered as one 
big string of characters. 



Reading a Sequential File 

[EOF, INPUT#] 

Now let's read the data that is in our file. To do this we need to 
open the file, read the data, and close the file. 

First, open the file with the OPEN command. This is the same 
command you used when you wrote to the file, except that now you 
must use input ("I") for the mode$. For example: 

OPEN "I", il, "CALORIE. DAT' 

If the file is not on the disk, you will get a "File not found" error 
message. 

Read the data from the file with the INPUT# statement. This 
statement is analogous to the WRITE# statement, in that it reads the 
expressions the way that WRITES wrote them out. The syntax is 

INPUT #f ilenunber, expressions 

For example, the following statement 
INPUT #1, F00D$;TYPE$;UNIT$:CAL 

could be used to read records from our previous program. 

In many cases, we will have to continue reading records until we 
find the one we want or until we reach the end of the file. The EOF 
(end of file) function is used to let you know when you have reached 
the end of the file. Attempting to read beyond the end of a sequential 
file will give the error message "Input past end". 
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The EOF function is commonly used with a conditional branch, 
such as 

10 IF EOF(l) THEN 60 

The number inside the parentheses is the file number. Note that in 
this case the number sign must not be used in front of the file 
number. This is an inconsistency in MBASIC. A number sign is 
optional with OPEN and CLOSE and is required with PRINT#, 
WRITE#, and INPUT#, but the number sign is not allowed with 
EOF. 

Remember to close any files with the CLOSE command when you 
are through reading from them. 

The following program will read and print out the data from the 
file we previously created with the WRITE # statement. Remember to 
recreate the file in order to get rid of the data that we wrote with the 
PRINTS statement. 

100 OPEN T.ll, "CTABLE.DAT" 

110 WHILE NOT EOF(l) 

120 INPUT #1,F00D$,TYPE$,UNIT*,CAL 

130 PRINT:PRINT FOOD*;". ";T>?E$ 

140 PRINT CAL; "Calories per ":UNIT$ 

150 WEND 

160 CLOSE II 

170 END 

Running this program displays the file CTABLE.DAT created by 
the previous program. The program would not work if the file were 
written with the PRINT# statement. 



Apricots, Dried 
260 Calories per 3 oz. 

Beans. Green 
33 Calories per 3 oz. 
0k 

Adding to a Sequential File 

If you wish to add records to an already existing sequential file, 
you cannot simply open the file and begin writing to it. If you open a 
preexisting file in output mode, all information in the file is automat- 
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ically lost. We will use our file CTABLE.DAT to go through the steps 
necessary to add data. 

1. Open a new file called COPY.DAT in the output or mode. 
Open the existing file CTABLE.DAT in the input or I mode. 

2. Read the data from CTABLE.DAT and then write it to the file 
COPY.DAT. 

3. Close the file CTABLE.DAT and then erase it with the KILL 
command. 

4. Write the new data to the file COPY.DAT. 

5. Close the file. 

6. Rename the file COPY.DAT to CTABLE.DAT. 

Now you have a file on the disk that has the same name as the 
original and that contains all the data from the original plus the data 
you added. At this point, examine the following program carefully 
and see how each of these tasks is accomplished. Notice that error 
trapping is used to check whether CTABLE.DAT exists on the disk. 
If CTABLE.DAT does not exist, we can skip the second and third 
steps in the preceding list. You will need to use error trapping often 
when adding to a sequential file, since there is no way for MBASIC to 
see whether or not a file exists on the disk. 

100 ON ERROR GOTO 350 

110 OPEN "0", II, "COPY.DAT" 

120 OPEN ' I ",#2, "CTABLE.DAT" 

130 ' 

140 'The following WHILE loop is skipped il the OPEN statement 

150 'for CTABLE.DAT caused an error 53 (File not found on disk) 

160 ' 

170 WHILE NOT E0F(2) 

180 INPUT #2, FOOD* . TYPE$, UNIT*, CAL 

190 WRITE tl r F0OD$; TYPE*: UNI T*; CAL 

200 WEND 

210 CLOSE 12 

220 KILL "CTABLE.DAT" 

230 ' 

240 PRINT: INPUT "Food nane: \F00D* 

250 IF F00D*="" THEN 310 
260 INPUT "Type: ".TYPE* 
270 INPUT "Unit serving: ".UNIT* 
280 INPUT "Calories per unit: '.CAL 
290 WRITE tl , FOOD*; TYPE*; UNIT*; CAL 
300 GOTO 24C" 

310 CLOSE II 
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320 NAME "COPY. DAT" AS "CTABLE.DAT' 

330 END 

340 

350 IF ERR = 53 AND ERL = 120 THEN 380 

360 CLOSE 

370 ON ERROR GOTO 

380 CLOSE #2 

390 RESUME 240 

You may use this program to add additional data from Table 14-1 
to the file CTABLE.DAT. The data may then be displayed using the 
INPUT# example program. 

In line 170, we control our WHILE/WEND loop by reading the 
file until the EOF (end of file) mark is encountered. When the EOF 
mark is reached, the loop terminates and CTABLE.DAT is closed and 
erased by the KILL command in line 220. Notice that the CLOSE 
statement is absolutely necessary here because if you delete a file 
before closing it, unpredictable (and almost assuredly bad) things can 
happen to your files. MBASIC will not give you an error message if 
you delete an open file. 

Finally, in line 350, error 53 stands for "File not found". If some 
error other than error 53 in line 120 occurs, line 360 closes all files, 
and line 370 prints the error message and stops. 
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TUTORIALS 



Tutorial 14-1: Calorie Counter 

[CHAIN] 

The calorie counter application programs use sequential files to 
determine the number of calories consumed during a meal. Four 
programs are used in this application. They are named MENU, 
ENTER, MERGE, and MEAL. Each of the programs is relatively 
short. Our main purpose here is to illustrate another of MBASIC's 
commands: CHAIN. The CHAIN command invokes a program from 
the disk that replaces the program in the computer's memory. 

The program MENU gives you a choice of either entering new 
data into file CTABLE.DAT or of calculating the number of calories 
that you consume during a meal. After making your choice, a second 
program is "chained" into the computer to do the actual calculating 
or to enter new data. 

The program ENTER is similar to a program you used earlier in 
this chapter. It allows you to enter data on various foods. After the 
data has been entered, the program uses quicksort to place all the 
foods you entered in alphabetical order. The sorted data is contained 



MENU 



ENTER 
MERGE 



MEAL 



Figure 14-2. 

Chain of programs for the calorie counter 
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in a sequential file named ADDITION.DAT. When this task is com- 
pleted, the program automatically chains in the next program, 
MERGE. 

The MERGE program combines the data from the file ADDI- 
TION.DAT and the file CTABLE.DAT into a single alphabetized file 
named COPY. DAT. When this task is completed, the program deletes 
the ADDITION.DAT and CTABLE.DAT files and then renames the 
file COPY.DAT to CTABLE.DAT. 

The final program, MEAL, allows you to enter the foods you eat 
during a meal, searches through the file for the data on that food, and 
calculates the calories that you consumed during that meal. The dia- 
gram in Figure 14-2 shows how the four programs are connected. 

Now let's take a look at the pertinent lines or sections of each 
program. 

10 REM - -=*MENU.C14*=- 

20 REM - Menu program for calorie file sysie* 

30 REM - 2/13/83 

40 REM - 

100 DEFINT A-Z 

110 PRINT 

120 PRINT "Choose one of the following: " 

130 PRINT " 1 ... Enter new data into table 1 

140 PRINT " 2 ... Compute total calories for a meal" 

150 PRINT " 3 . . . End' 

160 PRINT 

170 INPUT "Enter your selection: ",SEL 

180 IF SEL = 3 THEN END 

190 IF SEL >=1 AND SEL <=2 THEN 220 

200 PRINT "Invalid selection, enter a nurter forn 1 to 2.* 

210 GOTO 170 

220 FOR I = 1 TO SEL 

230 READ PGM* 

240 NEXT I 

250 CHAIN PGM* 

260 ' 

270 'Program name data 

260 ' 

290 DATA "ENTER.C14VMEAL.C14' 



In the program MENU, two different programs can be chained in. 
They are entered as data in line 290. When the CHAIN command in 
line 230 is reached, the program will chain in from the disk the pro- 
gram whose name is held in the variable PGM$. Selecting program 
1 on the menu will chain in and run the program ENTER. 
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The longest portion of the ENTER program contains quicksort 
and record addition. 

10 REM - -=*B»TER.C14*=- 

20 REM - Enter calorie table data 

30 REM - 2/15/83 

40 REM - 

100 OEFINT A-Z 

110 HAXSIZE = 50 Maxim* muter of entries per sitting 

120 DIM FOOD* (MAX SI IE: , T¥PE«(HAXSIZE) .UNIT$(«AXSIZE) .CAL (HAXSIZE I 

130 DIM STK ( I NT ( LOG ( F1AXS I ZE i /LOG ( 2 > > + 1 , 2.. 'Stack for Quicksort 

140 SIZE = 
150 ' 

160 'Begin sain prograt 
170 ' 

180 PRINT : INPUT "Food nane or (RETURN/ to end: \F» 

190 IF F$="" THEN 280 

200 SIZE = SIZE + 1 

210 F00D$(SIZE> = F* 

220 INPUT "Type: \TYPE$(SIZE) 

230 INPUT "Unit serving: \UNimSIZE) 

240 INPUT "Calories per unit: "-CAL(SIZEs 

250 IF SIZE < MAXSIZE THEN 180 

260 PRINT "You have entered all I can hold right now." 

270 PRINT "Take a break while I sort the list.' 

280 IF SIZE = THEN CHAIN "MENU.C14" No entries, don't bother nerging 
290 GOSUB 430 'Sort the list 
300 ' 

310 'Write sorted list to file ADDITI0N.BAT to be lerged later 

320 ' 

330 OPEN "0",#1, "ABDITI0N.DAT* 
340 FOR I = 1 TO SIZE 

350 WRITE #l,FO0»(I);TWE$(I):UNIT$(l>;CM.(I.i 
360 NEXT I 

370 WRITE Ih-zzzzzVV.O 'Write sentinel record to end 
380 CLOSE #1 

390 CHAIN " MERGE. C14" -'Now nerge list into CTABLE.DAT 
400 ' 

410 "Quicksort 
420 • 

430 PRINT "Quicksort ing array: "; 
440 SP=1:STK(SP.1)=1:STK(SP.2)=SIZE 
450 WHILE SP>0 
460 PRINT 

470 L=STK(SP. 1):R=STK(SP,2):SP=SP-1 
480 WHILE L<R 



490 I=L:-J=R:S=1 

500 WHILE IQ 

510 IF F00D$<IK=F00M(J> THEN 550 

530 SWAP FOOD*(lJ.F0OD$(Ji : SWAP TYPESU .1 ,TYPE$(J) 

530 SWAP UNIT»(I).UNIT$(J> : SWAP OUP.CALtJj 
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(Tutorial lk-lz Continued) 



540 

550 
560 
570 
580 
590 
600 
610 
620 



S=-S 



IF S=l THEN 1=1+1 ELSE ,KH 



IF R-DJ-L THEN 610 

IF J-DL THEN SP=SP+1:STK(SP. i)=L:STK(SP.2)=J-l 



GOTO 630 

IF 1+KR THEN SP=SP+1:STK(SP, 1)=I+1:STK(SP,2)=R 

R=-J- i 



630 WEND 
640 WENB 
650 PRINT 
660 RETURN 



After completing the quicksort in lines 430 through 660, the program 
returns to line 330 where the file ADDITION.DAT is opened. Then, 
in the following FOR/NEXT loop, the data is placed alphabetically in 
the file. Line 370 writes the last record in the file as dummy data, 
which will be used by later programs. Do not worry about the fact 
that this record will be added each time you run the program; MEAL 
will still work. Line 390 chains in the next program, MERGE. 

In the MERGE program, three files are opened— two for input 
and one for output. 

10 REM - -=*MERGE.C14*=- 

20 REM - Merge MERGE. FIL into CTABLE.DAT 

30 REM - 2/15/83 

40 REM - 

100 DEFINT A-Z 

110 ON ERROR GOTO 440 

120 REM - Open files 

130 OPEN "I", #1, "CTABLE.DAT* 

140 OPEN "I", #2, "ADDITI0N.DAT' 

150 OPEN "0", 13, "COPY. DAT* 

160 REM - Diiinsion records for files 1 and 2 

170 DIM F00D*(2),TYPE$(2).UNIT$(2),CAL.i2) 

180 IF E0FC1) THEN FIL = 2 : GOTO 310 'There are no records in CTABLE.DAT 
190 IF E0F(2) THEN ERROR 255 'Should not be merging if no additions 

200 PRINT "Merging files: 
210 FIL=2 

220 INPUT #l,F0ODt(l),TYPE*tl),UNIT$(l.i.r:AL(l.i 
230 WHILE NOT EOF (FID 

240 INPUT #FIL.F00D$(FIL),TYPE$(FIL),UNIT$iFIL),CAL(FIL) 
250 PRINT "a"; 

260 IF F00D$U) < F00D*<2) THEN FIL = 1 ELSE FIL = 2 
270 WRITE #3.F00W(FIL).r/PE*(FIL).LINITi(FIL),CAL(FIL) 
280 WEND 
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(Tutorial 1U-1: Continued) 

290 IF FIL = 1 THEN FIL = 2 ELSE FIL = 1 'Switch FIL to other value 

300 WRITE #3, F00D*CFIL) . TYPEt<FIL> . UNIT$(FIL) .CAL(FIL) 'Clear current record 

310 WHILE NOT EOF (.FIL) 'Flush the file that still has records 

320 INPUT #FIL,FOuD$(FIL)JYPE$(FIL),UNIT*(FIL),CAL(FIL> 

330 WRITE t3.F0OD$(FIL).TYPE$(FIL),LNITt(FIL).CAL(FILi 

340 WEND 

350 PRINT Done merging the files 

360 CLOSE 

370 KILL "CTABLE.DAT" 

380 KILL "ADDITI0N.DAT" 

390 NAME "COPY. DAT" AS "CTABLE.DAT" 

400 CHAIN "MENU.C14" 

410 ' 

420 'Error trap routine 
430 ' 

440 IF ERR <> 53 OR ERL <> 130 THEN ON ERROR GOTO 
450 CLOSE 

460 NAME "ADDITION. DAT" AS "CTABLE.DAT" 
470 RESUME 400 

The actual merge takes place in lines 200 through 340. After the 
files have been merged into a single file, the program uses the 
CHAIN command to return you back to MENU, where you can 
either terminate the program or select the program MEAL. 

Now to our final program, MEAL. 



10 REM - -=*MEAL.C14*=- 

20 REM - Ccupute calories per aeal 

30 REM - 2/15/83 

40 REM - 

100 DEFINT A-Z 

110 MAXMEAL = 20 Maximum seal size 

120 MAX TYPE = 10 Haxuwa nuier of types per given food 

130 DIM FOOD* ( MAXMEAL ), TYPE$ ( MAXMEAL ), UN I Tt ( MAXMEAL ). CAL ( MA XMEAL ), AMT ( MAXMEAL > 

140 DIM Tt ( MAX TYPE ) , Ut (MAXTYPE ) , C ( MAXTYPE) 

150 F00D$ = "zzzzz" 'Initialize file pointer to end 

160 MSIZE = 'This is the meal size (number of foods) 

170 PRINT : PRINT "Enter food #";MSIZE+l;"or <RETURN> to end: "; 

180 INPUT "".Ft 

190 IF Ft="" THEN 300 

200 GOSUB 480 Choose food type 

210 IF SEL = THEN 290 SEL = if not found or no selection 

220 MSIZE = MSIZE + 1 

230 FOODtiHSIZE.) = Ft 

240 TYPE$(HSIZE) = Tt(SEL) 

250 UNITt(MSIZE> = UtiSEL) 

m CAL (MSIZE) = C(SEL) 

270 PRINT "How many ";UNITt(MSIZE);" servings' "; 
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(Tutorial 1U-1: Continued) 



m if 

300 PRINT 
310 PRINT 
320 PRINT 
330 PRINT 
340 SL$ = 
350 TLt = 



INPUT "".AMT(MSIZE) 
SIZE < MAXMEAL THEN 170 



TAB(17): "-*= Food calorie chart =*-" 
"Food, type amount units 



cal/unit total" 



"Total calories consumed: 



\ tit \ 



mini- 



360 TOTAL = 

370 FOR 1 = 1 TO rtSIZE 

380 SUBT = ANTU)*CALUj 

390 PRINT USING SL*;F00D*(I.H", "+TYPE$(I);AMT(I),UNIT*(I.),CAL(I).SUBT 
HO TOTAL = TOTAL + SUBT 
410 NEXT I 

420 PRINT USING TL*; TOTAL 

430 PRINT : INPUT "Press <RETURN> to return to menu. ",At 
440 CHAIN "(CNU.C14" 
450 ' 

460 'Look up Ft in CTABLE and get appropriate type. 
470 

480 IF FOOD* < Ft THEN 510 Check if F* is before or after file pointer 
490 CLOSE tl If Ft is before file pointer then 

500 OPEN "I", 11, "CTABLE.DAT" 'Restore to beginning of file 
510 INPUT I1,F00D*,TYPE*,UNIT*,CAL Search for F$ 
520 IF F0OD$ < Ft THEN 510 

530 TSIZE = This is the number of types for Ft 

540 WHILE FOOD* = Ft AND TSIZE < MAXTYPE 

550 TSIZE = TSIZE + 1 

560 PRINT USING "tt> &";TSIZE;TYPEt 

570 Tt(TSIZE) = TYPEt : Ut(TSIZE) = UNITt : C(TSIZE) = CAL 

580 INPUT #1, FOOD*, TYPE*, UNIT*,CAL 

590 MEND 

600 IF TSIZE > THEN 640 

610 PRINT F*;" not found in file.' 

620 sa = (> 

630 RETURN 

640 INPUT "Enter your selection or for none of the above: ",SEL 
650 IF SEL >= AND SEL <= TSIZE THEN 680 

660 PRINT "Invalid selection, enter a number between and";TSIZE 
670 GOTO 640 
680 RETURN 



Note that line 150 sets the pointer to the end of the file by setting the 
variable FOOD$ equal to "zzzzz". After making your first choice of 
food, the program transfers to the subroutine at 480. Since FOOD$ is 
"zzzzz", the file will be opened the first time through in line 500, which 
automatically sets the pointer to the beginning of the file. The 
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program then searches through the file sequentially to find the food 
that you indicated in line 180. On finding your entry, the program 
determines how many types are in the file. For instance, if your choice 
was milk, type might be "whole," "2%," and "non-fat." The program 
then indicates on the screen these types and allows you to make your 
selection by number. After selecting the appropriate type of the food, 
lines 220 through 280 record the information in arrays so that it can 
be printed out later. You then go to line 170 to make your next 
selection. 

On your second selection, when the program reaches line 480, it 
checks to see if the file pointer is before or after your selection. If the 
file pointer is before, MEAL does not close the file but continues to 
search through for your next selection. If the file pointer is after the 
second selection, MEAL must close the file in order to reset the point- 
er to the beginning of the file. If your food choices were entered in 
alphabetical order, the file would only be opened once. If they were 
entered in reverse alphabetical order, the file would have to be closed 
and reopened on each selection. 

Each program contains a DEFINT A-Z statement in line 100. 
Since none of the programs requires single-precision numbers, the 
DEFINT statement at line 100 is used to make all variables default 
to integer type unless otherwise specified. 

Here is an example of running the program: 



Choose one of the following: 

1 ... Enter new data into table 

2 ... Compute total calories for a steal 

3 . . . End 

Enter your selection: 1 

Food name or <RETURN> to end: Beef 
Type: Sirloin 
Unit serving: 1 pz. 
Calories per unit: 110 



Food nane or <RETURN> to end: Chocolate 

Type: Sweet 

Unit serving: 1 ot. 

Calories per unit: 150 
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(Tutorial H-l: Continued) 

Food name or <R£TURN> to end: 
Quicksorting array: * 
Merging files: ******* 



Chose one of the following: 

1 ... Enter new data into table 

2 ... Compute total calories for a meal 

3 . . . End 

Enter your selection: 2 

Enter food # 1 or < RE TURN) to end: Beef 
t) Sirloin 

Enter your selection or for none of the above: 1 
How many 1 oz. servings? 8 

Enter food * 2 or <RETURN) to end: Apricots 
1) Dried 

Enter your selection or for none of the above: 1 

How man- 3 oz. servings? 2 

Enter food t 3 or <RETURN> to end: Chocolate 
1) Sweet 

Enter your selection or for none of the above: 1 

How many 1 oz. servings? 3 



Enter food t 4 or < RETURN) to end: 



-*= Food calorie enart =*- 
Food, type amount units cal/'unit total 



Beef. Sirloin 8 1 oz. 110 880 

Apricots, Dried 2 3 oz. 260 520 

Chocolate, Sweet 3 1 oz. 150 450 

Total calories consumed: 1850 



Press < RETURN) to return to menu. 



Chose one of the following: 

1 ... Enter new data into table 

2 ... Compute total calories for a meal 

3 ... End 

Enter your selection: i 
Ok 
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EXERCISES 



1. Write a program that will allow you to enter names 
and addresses into a sequential file. 

2. For the sequential file of the first problem, write a 
program that will print out, in mailing label format, 
only those names that have a specific ZIP code. 



Working 

With Random-Access Files 



Statements: LSET, PUT, RSET, GET, FIELD, 
MERGE 

Functions: MKI$, CVI, MKS$, CVS, MKD$, 
CVD, LOF 



The second file structure used by MBASIC for data is random 
access. Just as with sequential files, a random file consists of a group 
of records or even of a single record, although this would not be prac- 
tical. Most files will consist of a hundred or more records. 



Working with Random Files 

Figure 15-1 is a diagram of how a random-access file is set up. 
Compare it to Figure 14-1, which shows a sequential file. 

The advantage of random access is that if we wish to read record 
number 199, MBASIC goes directly to that record without needing to 
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Figure 15-1. 

Records in a random file 

read the first 198 records. The disadvantage of the random-access file 
is the waste of space. For example, if the fourth field is to contain 
names and we specify that the length of the field is 25 bytes, this will 
be the maximum length for any name entered into the field. Many 
names will be shorter than this, but 25 bytes of storage are allocated 
and will be used for each name whether or not 25 bytes are required. 

OPENING A RANDOM-ACCESS FILE 

[OPEN, FIELD] 

Before you can work with random-access files, you must always 
use two statements. They are the OPEN statement and the FIELD 
statement. Let's look at each of these. 

The OPEN statement is similar to the OPEN statement in Chap- 
ter 14, except that the mode$ is "R". This allows you to both read and 
write in the file. In addition, you must indicate the length of each 
record at the end of the command. When you are working with a 
random-access file, the record length is determined by the sum of the 
lengths of the individual fields of the record. For example, if field one 
has a length of 4 and field two has a length of 12, then the record 
length would be 16. An example of an OPEN command for a random- 
access file is 

OPEN "R", #1. "CHKBOOK.DAT". 38 

The 38 is the record length. 

A FIELD statement is needed in the program to set the length 
for each field. The syntax is 

FIELD ifilenumber. widthl AS variblel, width2 AS variable2, ... 
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where filenumber is the number of the file we are describing, widthl 
is the number of bytes in the first field, which is stored in variablel$, 
and so on. All of the variables must be strings, and these strings must 
be filled only by the GET, LSET, or RSET statements. Do not assign 
the strings specified in the FIELD statement with either INPUT or 
LET, since this will mix up MBASIC's internal memory. An example 
of a FIELD command is 

FIELD 11, 25 AS F.PAVTW, 8 AS F.BATE*. 4 AS F. AMOUNT*. 1 AS F.STATUS* 

The #1 indicates the number of the file that contains the records 
with these fields. Following the file number is a comma-separated 
list of field lengths and the name of each field. In our example 25 
AS F.PAYTO$ indicates that the first field in our record has a 
length of 25 characters and is assigned to the variable name 
F.PAYTO$. The second field has a length of 8 and is assigned to 
F.DATE$. The third field has a length of 4 and is assigned the vari- 
able name F.AMOUNT$. You will see in a moment why we chose to 
put F. before each variable name. 

LOF FUNCTION 

[LOFJ 

The LOF function returns the approximate number of records in 
a random-access file. Depending on your record length, LOF will be 
accurate within about seven records. Since LOF is only an approxi- 
mation, it is usually used to determine whether a random-access file 
contains any records at all. For example, 

IF L0FU)=O THEN 200 

will branch to line 200 if file number one contains no records. Notice 
that when you use the LOF function, you must not put the number 
sign in front of the file number. The application in Tutorial 15-1 at 
the end of this chapter will use the LOF function. 

PREPARING STRING DATA FOR A FILE 

[LSET, RSET] 

Variables that are used in a FIELD statement need special atten- 
tion. The only safe way to assign a value to a variable in a FIELD 
statement is to use the LSET or RSET statement. Because fields in 
a record are a specified length and the data is usually shorter than 
this length, you must either left- or right-justify the data. 
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For example, suppose a customer name field has a length of 25, 
and we enter the name Wallace, David. The name requires only 14 
spaces, including the comma and the space between last and first 
names. LSET will left-justify the data within the field and RSET 
will right-justify the name within the field, as shown in Figure 15-2. 

The LSET and RSET statements are used to store the data in the 
fields for the file, but they do not actually store the data in the file. 
This is done with the PUT statement, which is described later in the 
chapter. If the strings being stored by LSET and RSET are longer 
than the variables, LSET and RSET will eliminate the rightmost 
excess characters. If the strings are shorter than the variables, the 
string is padded with spaces. 

Notice that we started all our variables in the FIELD example 
with F., for example, F.PAYTO$. This particular notation is not 
essential, but because field variables are treated in a special way 
(they must be LSET or RSET), it is worthwhile to develop some nota- 
tion to readily distinguish them from other string variables. Since 
you cannot assign field variables with a LET or INPUT statement, a 
two-step process is necessary. The data is entered into a standard 
string variable, and then it is assigned to the field variable using 
RSET or LSET. 

For example, to assign the field variable F.PAYTO$ with data 
entered from the keyboard, you could use 

100 INPUT "Paynent to: \PAYT0$ 
110 LSET F.PAYTO* = PAYTCl* 

If the variable F.PAYTO$ were used in line 100, the data would not 
be placed properly in the field. No error message is printed if you 
assign data to a field variable without using LSET or RSET. It is 
easy to forget to use LSET and RSET when you are first working 



Customer Name field 



Wallace, David 



Customer Name field 



Wallace, David 



LSET 



RSET 



Figure 15-2. 

Filling a field with LSET and RSET 
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with random-access files. If a field variable is assigned without 
LSET or RSET, however, it can no longer be used to place data into a 
field of a record. 

STORING NUMBERS IN RANDOM FILES 

[CVI, CVS, CVD, MKIS, MKSS, MKDS] 

Since only string variables may appear in a FIELD statement, 
numbers need special attention. To write numbers to a random- 
access file, you must first convert them to strings. 

The MBASIC functions that are used for this purpose are MKI$, 
MKS$, and MKD$. MKI$ converts an integer into a two-byte string, 
MKS$ converts a single-precision number into a four-byte string, and 
MKD$ converts a double-precision number into an eight-byte string. 
Once the numeric values have been converted to strings, LSET or 
RSET is used to place them in the field variables. 

When numbers that have been converted to strings are read from 
a random-access file, they must be reconverted to numeric values 
before they can be processed by your program. The MBASIC func- 
tions that are used for this purpose are CVI, CVS, and CVD. 

CVI converts a two-byte string to an integer, CVS converts a four- 
byte string to a single-precision number, and CVD converts an eight- 
byte string to a double-precision number. 

In addition to the specific functions designed for this conversion, 
you can also use the CHR$ and ASC functions to convert numbers in 
the range of through 255. This can be useful if space is a considera- 
tion, since only one byte of storage is required for each number. 

For example, if in our previous FIELD example, you wished to 
store the number 235 in the F.STATUS$ field, which has a length 1, 
you would use 

LSET F. STATUS* = CHR$(235) 

To extract a number stored in the F.STATUS$ field, you would use 
NUH = ASC (F. STATUS*) 

It is also worth noting that numbers that do not require any 
mathematical manipulation (such as phone numbers, ZIP codes, and 
so on) may be stored and treated as strings throughout a program. 
You can also use the STR$ and VAL functions that were introduced 
in Chapter 9. The field length required will depend on the maximum 
value you wish to store. For example, the FIELD statement for 
numbers in the range to 9999 will require four bytes of storage. 
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General Requirements for 
Random-Access Files 

In addition to the preceding rules governing number and string 
conversion, there are some other general requirements for random 
files. 

First of all, each time a random-access file is to be used, it must 
be opened with the same record length. MBASIC locates an individ- 
ual record in a random-access file by using the record length to com- 
pute the exact location of the record in the file. For example, if the 
record length is 40 and you want to retrieve the thirtieth record, 
MBASIC moves directly to byte 1200 in the file and reads the next 40 
bytes. 

Second, the maximum record length is set by default at 128 bytes. 
This can be changed when you load MBASIC from CP/M. To change 
this maximum, add /S:nnn, where nnn is the maximum record size, 
to the MBASIC command. For example, to allow for 300-byte record 
lengths, give the command 

MBASIC /S: 300 

Finally, the total length of all the fields specified in the FIELD 
statement must be less than or equal to the record size specified in 
the OPEN command. Note that the error message FIELD overflow 
will be given if the combined length of the field variables in a FIELD 
statement is greater than the record length specified for the file. 

You may, however, want to specify a record length that is greater 
than the total length of all the fields. If your record contains extra 
room not used up by the fields, you may easily add fields to your 
FIELD statement at a later time without having to recreate the 
entire data file. You must decide how much extra room to set aside 
for future expansion by weighing the amount of wasted room against 
the importance of being able to add fields to your record. 

Writing to a Random File 

[PUT, GET] 

When all the fields of a record have been filled with LSET or 
RSET, use the PUT statement to write the record to the file. The 
syntax of the PUT statement is 



PUT #f ilenumber, recordmmber 
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where filenumber is the number of the desired file and recordnumber 
is the record in the file that will be filled in. 

For example, to write to record number six of file number one, 
you would use 

PIT ll, 6 

More commonly, a variable will appear as the record number, as in 
PUT #1. RECNUN 

You do not have to include a list of field variables in the PUT 
statement as you did with the PRINT# or WRITE # statements. The 
FIELD statement has already specified which variables are to be 
written to each record of the file. 

To optimize the time required to write data to a disk file, the PUT 
statement actually places the data in a buffer instead of on the disk. 
A buffer is a section of the computer memory that is managed inter- 
nally by MBASIC and that is used to hold information temporarily. 
When the buffer is full, or when the file is closed with the CLOSE 
statement, the data is written to the disk. It is therefore very impor- 
tant to be sure that the program closes the file when it has finished 
reading from or writing to the file. If this is not done, data may be 
lost. 

Since the RUN, END, SYSTEM, LOAD, NEW, and EDIT com- 
mands will automatically close all files, the problem of lost data 
rarely arises. Of course, it is still possible to lose data accidentally if 
you prematurely exit from MBASIC. If you turn the power off or 
reset the computer before closing a file, you may lose some of your 
latest file updates. These warnings also apply to sequential files 
opened with the output or "O" mode. 

Reading from a random file is very similar to writing to it. The 
syntax of the GET statement is 

GET if ilenumber, recordnueber 

where filenumber and recordnumber are the same as for the PUT 
statement. When the GET statement reads a record from a file, it 
automatically assigns all of the field variables specified in the 
FIELD statement for that file. You do not specify which variables to 
read as you did with the INPUT # statement. 



zing Your Data Records 



The main function of files is to store a lot of data. For this reason, 
the time spent planning the structure of data within a file is well 
worthwhile. It is very frustrating, for example, to find that a particu- 
lar field should be longer or that an additional field is required after 
entering a hundred records. 

Our first random-access file program will allow us to input data 
for a personal checkbook. Table 15-1 shows that fields are provided 
for the following data: who the check is paid to; the date; the amount; 
and the check's status, which indicates whether or not the check has 
cleared the bank. The status will be either "0" for "outstanding" (the 
check has not cleared the bank) or "C" for "clear" (the check has 
cleared the bank). The check number will be the same as the record 
number. This means that we will not actually store the check 
number, since it is already known. 

Type in and run the following program: 

10 REM - CHKB00K1 

100 OPEN "R\#l, "CHKBO0K.DAT*. 38 

110 FIELD #1,25 AS F.PAYT0S.8 AS F.DATES.4 AS F.AH0UNTS.1 AS F.STATUS* 
120 CHKNUH = 1 

130 PRINT:PRINT "Check number" ;CHKNUM 

140 LINE INPUT "Payment to: ",PAYT0S 

150 IF PAYT0* = "" THEN 250 

160 LINE INPUT "Bates ".DATE* 

170 INPUT "Amount of payment: ".AMOUNT 

180 LSET F.PAYT0* = PAYT0* 

190 LSET F.BATES = DATES 

200 LSET F. AMOUNTS = MKSSt AMOUNT.' 

210 LSET F.STATUSS = "0* 

220 PUT tUCHKNUM 



Table 15-1. 

Random File Data 



Check # (3) 


Payto (25) 


Date (8) 


Amount (4) 


Status (1) 


1 


Eric Crum 


1/3/83 


93.30 


O 


2 


P.G. & E. 


1/3/83 


192.50 


O 


3 


Macy's 


1/7/83 


147.30 


O 


4 


Slug, Fred 


1/14/83 


45.50 


O 


5 


CP/M/83 


1/14/83 


20.00 


O 
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230 CHKNUH = CHKNUH + 1 
240 GOTO 130 
250 CLOSE #1 
260 END 

Notice that each of the variables assigned in the FIELD state- 
ment in line 110 has the prefix F., so that when you inspect your 
program, you can quickly distinguish the field variables from other 
variables. 



Uiectc number 1 
Pavment to: Eric Crw 
Date: 1/3/33 

Amount of payment: 93. 90 

Check number 2 
Payment to: P. 6. E, £. 

Amount of payment: 192.50 

Check number 3 
Payment to: 

Ok 

In lines 180 through 200 the field variables— those prefixed with 
F. — are set equal to the variables you input. In line 200 the single- 
precision numeric variable AMOUNT is converted to a four-byte 
string with MKS$ so that it may be stored in the field F.AMOUNT$. 
(Remember, AMOUNT is a single-precision variable by default.) In 
line 210 the field variable F.STATUS$ is set equal to the constant 
"O" since the checks have not cleared the bank yet. The PUT state- 
ment of line 220 writes the information that was LSET in lines 180 
through 210 to the file. 

In this next program, we will use the GET command to read the 
data we wrote to the CHKBOOK.DAT file in the previous program. 
In addition to reading the file, the program will also allow us to post 
whether or not a check has been cleared. When a check is posted as 
clear, the F.STATUS$ field is set to "C" for "clear." 

10 REM - CHKB00K2 

100 OPEN "R", 11. "CHKB00K.DAT". 38 

110 FIELD #1,25 AS F.PAYT0*,8 AS: F.DATE»,4 AS F. AMOUNT*. 1 AS F.STATUS* 
120 PRINT: INPUT "Enter check number to clear: ".CHKNUH 
130 IF CHKNUH = THEN 210 
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140 GET #1,CHKNUH 

150 AMOUNT = CVS(F.AM0UNT$> 

160 PRINT:PRINT USING "Check number: ### date: 8,":CHKNUM;F.DATE$ 

170 PRINT USING "Pay to: I for $$###.##";F.PAYT0$;AMOUNT 

180 INPUT "Post check as cleared (Y/N)? ",ANS$ 

190 IF AI*S$ = "Y" THEN LSET F.STATUS$ = "C* : PUT tl.CHKNUH 

200 GOTO 120 

210 CLOSE 11 

220 END 

Running the program produces the following: 
RUN 

Enter check nusber to clear: 2 

Check timber: 2 date: 1/3/83 

Pay to: P. G. 8, E. for $192.50 

Post check as cleared (Y/N)? Y 

Enter check mmber to clear: 1 

Check mater: 1 date: 1/3/83 

Pay to: Eric Crun for $93.90 

Post check as cleared (Y/N)? { 

Enter check number to clear: 
ft 

The GET statement in line 140 reads in the record number specified 
in the variable CHKNUM from file number 1. In line 150, the CVS 
function converts the amount of each check from the string data held 
in F.AMOUNT$ to single-precision numeric data and places it in the 
single-precision variable AMOUNT. In lines 160 and 170, F.DATE$ 
and F.PAYTO$ are used as strings in the program so that they do not 
need to be converted. In line 190, the LSET command is used to set 
the status of the check to be cleared if the answer to the question in 
line 190 is Y for yes. 

Line 190 also writes the record back to the file with the PUT 
statement if F.STATUS$ is changed. Here we are updating a record; 
that is, we are rewriting a record that already exists. Even though 
we are only changing one field, F.STATUS$, the PUT statement 
writes the entire record back to the file. 

Notice that in the run of the program, check numbers 2 and 1 
were read out of order. Because your checks will generally come back 
from the bank out of order, your program should be able to post 
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checks in a random order. Since we have conveniently made the 
check number the same as the record number, we can select any 
check from our random-access file. A sequential file would not be 
suitable for this application because it would restrict your program to 
posting checks in sequential order. 

Now run the program again and enter check number 100: 

m 

Enter cneck number to clear: 100 

Check number: 100 date: 

Pay to: for $0.00 

Post check as cleared (¥/»)? V 

Our file only contains two records — one for check number 1 and one 
for check number 2 — yet the program allowed us to read record 
number 100. Reading past the end of a random-access file does not 
generate an error in MBASIC. It is up to your program to make sure 
that you use the GET statement to read in only those record numbers 
that have been previously written to with the PUT statement. 

Now let's see what happens if we answer Y to clear the check. 
This will write to record 100 even though we have not written to any 
of the records between record 3 and record 99. After writing record 
100, use the program to look at record 90. 

Enter check number to clear: 90 

Check number: 90 date: s:. / 

Pay to: ++sc:: for $0.00 

Post check as cleared VHW7 

Your results will be different from this example's but equally unpre- 
dictable. In general, reading a record that does not exist will give 
incorrect data. 

If you have been working with these examples on your own com- 
puter, you should stop now and delete the CHKBOOK.DAT file with 
the KILL command since clearing check 100 inadvertently filled 
records 3 through 99 with garbage. The following three lines will 
check to see if we are reading past the end of the file: 

142 IF NOT EOFd.) THEN 150 

144 PRINT "Bad check number, reading past end of file* 

146 GOTO !20 



The EOF function works for random-access files almost the same 
way it does for sequential files. The EOF function returns true if the 
last GET statement executed read a record past the end of the file. 

In the following example, the program reads through the entire 
file and determines whether or not each check has been cleared. It 
then prints out the total amount outstanding for the uncleared 
checks. 

10 REM - CHKRMK3 

100 OPEN "R' : , 11 , "CHkBQOK. BAT" . SB 

110 FIELD #1.25 AS F.PAYTO.S AS F. DATE*. A AS F. AMOUNT*.! AS F. STATUS! 

120 TOTAL = : CHKNUh = ! 

130 GET #1, CHKNUH 

140 WHILE NOT EQFtlJ 

150 IF F. STATUS;* <> "0" THEN 200 

m AMOUNT = t'v'Si.F. AMOUNT*.! 

170 PPINT:PRINT USING "Check number: tt« date: V; CHKNUH; F. DATE* 

180 PRINT USING "Pa? to: I for *«tl.li";F.PAYT0t; WW.iNl 

1% TOTAL = TOTAL t AMOUNT 

200 CHKNUM = CHKNUH * 1 

210 GET #1.0* NUM 

220 WEND 

230 PRINT:PRINT USING "Total for outstanding cheeks: **####.##*; TOTAL 
2A0 aOSE II 
250 END 

The EOF function in line 140 checks to see whether we have read 
a record past the end of the file. The GET statement in line 30 reads 
the first record. If there are no records in the file, the WHILE loop 
starting at line 140 is not executed. Otherwise, the WHILE loop con- 
tinues to read records until the GET statement in line 210 reads 
beyond the end of the file. In the tutorials section of this chapter, we 
will introduce another method of finding the last record in a random- 
access file. 

Line 150 determines whether or not a check has been cleared by 
looking at F.STATUS$. If the check has not been cleared, it is 
printed and the amount is added to the variable TOTAL. 

We have written three separate programs that illustrate the use of 
random-access files to deal with checkbook entries. The purpose of 
the first program was to enter data; the second program was used to 
read the data and clear checks; and the last program listed the out- 
standing checks. When you are used to working with random files, 
you will be able to incorporate all three of these functions into a sin- 
gle program. 
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Merging Programs 

[MERGE] 

Let's see how the MERGE command can be used to combine these 
three programs into a single program. The MERGE command is 
used to combine separate programs that are stored on the disk as 
individual files into a single program stored in the computer's 
memory. In order to combine separate programs in this way, we will 
have to do some preliminary planning, then renumber the existing 
programs. 

First we should begin our program with a menu that will allow us 
to implement each of these functions. Recall that using a menu was 
explained in Chapter 8. Enter the following, which will be the begin- 
ning of our combined program: 

10 REM - CHKBOOK. C15 (MERGED) 
100 OPEN *R\tl, "CHKB0QK.DAT*. 38 

110 FIELD #1,25 AS F.PAYT0$,8 AS F.DATEf.4 AS F.AH0UfT$,l AS F.STATUS* 
120 PRINT 

130 PRINT "Choose one of the following functions:' 

140 PRINT u 1 ... Add checks to file" 

150 PRINT " 2 ... Clear checks' 

160 PRINT ■ 3 ... List outstanding checks' 

170 PRINT " 4 ... End/close files' 

180 PRINT 

190 INPUT "What is your selection? '.SEL 

200 IF SEL < 1 OR SEL > 4 THEN PRINT 'Invalid select ion. ":GOT0 190 
210 ON SEL GOSUB 1000. 2000. 3000,4000 
220 GOTO 120 
4000 CLOSE 
4010 END 

In effect, each of our previous programs will be a subroutine of 
this program. Line 210 indicates the beginning line numbers of each 
of these subroutines. Line 1000 will be the start of the subroutine that 
allows us to add checks to our data file. Line 2000 is the beginning of 
the subroutine to clear checks and line 3000 is the beginning of the 
subroutine that lists the outstanding checks. The last subroutine, 
which begins at 4000, closes the files and ends the program. 

At this point, let's save this program with the file name 
CHKBOOK.C15 and begin the modifications of the three checkbook 
programs that will be subroutines. First load the program 
CHKBOOK1, delete the lines that we are not interested in, and 
renumber the program beginning at line 1000. Also add a RETURN 
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statement to the end of the first subroutine, and replace the END 
statement with a REM statement. Then save the program under the 
name FILE1. 

LOAD "cmooKr 

Ok 

DELETE 10-110 
Ok 

120 INPUT "What 15 the next check number' VCHKNUN 

250 RETURN 

2w REM 

RENUH 1000 

0k 

SAVE "FILE! ".A 
Ok 

In order to use the MERGE command, it is necessary to save the 
program in the ASCII format. This is done with the A option of the 
SAVE command. Note the change in line 120 that will allow check 
numbers to start where the last session left off. 

The same procedure is followed in the programs CHKBOOK2 and 
CHKBOOK3. 

LOAD "CHKB00K2" 
Ok 

DELETE 10-110 
0k 

210 RETURN 
220 REM 
fiENUM 2000 
0k 

SAVE "FILE2",A 
0k 

LOAD "CHKB00K3" 
Ok 

DELETE 10-110 
Ok 

240 RETURN 
250 REM 
RENUH 3000 
0k 

SAVE "FILES" , A 
0k 

Now that our menu program is written and our three checkbook 
programs are modified and renumbered, we can proceed to merge 
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them into a single program by following these steps: 

LOAD "CHKB00K.C15" 
Ok 

MERGE "FILE1" 
Ok 

MERGE "FILE2" 

Ok 

MERGE "FILE3" 
Ok 

Here is the final result: 

10 REM - CHKB00K.C15 (MERGED) 
100 OPEN "RM1, "CHKB00K.DAT*. 38 

110 FIELD 11,25 AS F.PAYT0S.8 AS F, DATES, 4 AS F. AMOUNT!, 1 AS F. STATUS* 
120 PRINT 

130 PRINT "Choose one of the f ©lowing functions:" 

140 PRINT * 1 ... AM checks to file" 

150 PRINT " 2 ... Clear checks' 

160 PRINT " 3 ... List outstanding checks* 

170 PRINT ' 4 ... End/close files" 

180 PRINT 

190 INPUT "What is your selection? ".SEL 

200 IF SEL < 1 OR SEL > 3 THEN PRINT 'Invalid selection. ' iGOTO 190 
210 ON SEL GOSUB 1000,2000,3000,4000 
220 GOTO 120 

1000 INPUT "What is the nest check nuiber? ".CHKNUM 

1010 PRINT:PRINT 'Check nuiber'; CHKNUM 

1020 INPUT 'Payient to: ".PAYTOS 

1030 IF PAYTOS = " THEN 1130 

1040 INPUT 'Date: ", DATES 

1050 INPUT 'Anoint of payient: AMOUNT 

1060 LSET F.PAYTOS = PAYTOS 

1070 LSET F. DATES = DATES 

1080 LSET F. AMOUNTS = HKSS(AMOUNT) 

1090 LSET F.STATUSS = "0" 

1100 PUT #1, CHKNUM 

1110 CHKNUM = CHKNUM + 1 

1120 GOTO 1010 

1130 RETURN 

1140 REN 

2000 PRINT: INPUT "Enter check nuiber to clear: ", CHKNUM 

2010 IF CHKNUM = THEN 2120 

2020 GET tl, CHKNUM 

2030 IF NOT EOF(l) THEN 2060 

2040 PRINT "Bad check nuiber, reading past end of file" 

2050 GOTO 2000 

2060 AMOUNT = CVS(F.AMOUNTS> 

2070 PRINT:PRINT USING "Check nuiber: ### date: V; CHKNUM; F. DATES 
2080 PRINT USING "Pay to: t. for SSttt .##"; F . PAYTOS ; AMOUNT 



2090 INPUT 'Post check as cleared (Y/NJ? ",ANS* 

2100 IF ANS* = "Y" THEN LSET F.STATUS$ = "C" : PUT tl, CHKNUH 

2110 GOTO 2000 

2120 RETURN 

2130 REH 

3000 TOTAL = : CHKNUH = 1 

3010 GET #1, CHKNUH 

3020 WHILE NOT EOFU) 

3030 IF F. STATUS* <> "0" THEN 3080 

3040 AMOUNT = CVS(F.AMOUNT$) 

3050 PRINT: PRINT USING "Check number: ttt date: 8>"; CHKNUH; F. DATE* 

3060 PRINT USING "Pay to: & for *tt#t.##";F.PAYT0*;AMOUNT 

3070 TOTAL = TOTAL + AMOUNT 

3080 CHKNUH = CHKNUH + 1 

3090 GET #1, CHKNUH 

3100 MEND 

3110 PRINT:PRINT USING "Total for outstanding checks: $*###!. t#"; TOTAL 
3120 RETURN 
3130 REH 
4000 CLOSE 
4010 END 

Notice that lines 4000 and 4010, which were part of the first menu 
program CHKBOOK.C14, appear at the end of the listing following 
the three subroutines FILE1, FILE2, and FILE 3. 

Here is a sample RUN of the program: 

RUN 

Choose one of the following functions: 

1 ... Add checks to file 

2 ... Clear checks 

3 ... List outstanding checks 

4 ... End/close files 

What is your selection? 1 

What is the next check number? 23 

Check number 23 

Payment to: Senior House 
Date: i/24/83 

Amount of payment: 15.50 

Check number 24 
Payment to: Sigma Delta 
Date: 1/25/83 
Amount of payment: 6.66 



Working With Random-Access Files 279 



Check nuiber 25 
Payment to: 

Choose one of the followin9 functions: 

1 ... Add checks to file 

2 ... Clear checks 

3 ... List outstanding checks 

4 ... End/close files 

What is your selection? 3 

Check muter: 23 date: 1/24783 

Pay to: Senior House for $15.50 

Check nuiber; 24 date: 1/25/33 

Pay to: Sigma Delta for KM 

Total for outstanding checks: $22.16 

Choose one of the following functions: 

1 ... Add checks to file 

2 ... Clear checks 

3 ... List outstanding checks 

4 ... End/close files 

What is your selection 7 4 
Ok 



TUTORIALS 



Tutorial 15-1: Inventory 

This tutorial, which is an inventory program, is the longest single 
program we have worked with to this point. Before we go into the 
specific details, let's take a look at the problem as a whole and 
observe how it is organized. 

10 REM - -=*INVENTRY*=- 

20 REM - Inventry progran 

30 REM - 2/6/83 

40 REM - 

1000 DEFINT A-Z 

1010 BELL$ = CHR$(7) 

1020 REM *=- Open inventory file 
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(Tutorial 15-1: Continued) 
1030 OPEN "R".#l, "INVENTRY.DAT", 38 

1040 REM *=- Field the header record with status and number of parts. 
1050 FIELD #1.1 AS STAT*, 2 AS NOTTS* 

1060 RBI *-- Field data records with description, quantity, reorder level 
1070 REM *=- and price per unit. 

1080 FIELD #1,30 AS QESC*,2 AS QTY*,2 AS REDRV4 AS PRICE! 
im IF L0FC1) -- 7>EN 1150 Check file size 
1100 GET 11.1 Get old header record 

1110 IF STAT* = "C" THEN 1130 

1120 PRINT BELL*:";;-> WARNING: file not previously closed proper 1 
1130 NOTTS * CVliNOTtSI) 
1140 GOTO 1170 

1150 NOTTS » '"New file, initialize header record 

IIM LSET NOTTS* = WMm 

1170 LSET STAT* = '0' 'Set file to (O.ipen status 

1180 PUT #1,1 'Write out header record 

1190 PRINT : PRINT 

1200 PRINT "There are*;NOTTS;"parts on file." 
1210 PRINT 

1220 PRINT "Choose one of the following functions:" 

1230 PRINT " 1 ... Query an existing part" 

1240 PRINT " 2 ... Enter a new part" 

1250 PRINT " 3 ... Edit an existing part" 

1260 PRINT " 4 ... Sales transaction* 

1270 PRINT " 5 ... Purchase transaction" 

1280 PRINT " 6 ... List parts below reorder level" 

1290 PRINT ' 7 ... End prograi/close file" 

1300 PRINT 

1310 INPUT "Selection number: ",SEL 

1320 IF SEL >= 1 AND SEL <= 7 THEN 1350 

1330 PRINT "Please enter a selection between 1 and 7." 

1340 GOTO 1310 

1350 IF NOTTS >00RSEL-20RSEL = 7 THEN 1386 
1360 PRINT BELL*;"//-/ No Parts on file." 
1370 GOTO 1310 

1380 ON SEL GOSUB 1430,1510,1620.1710.1770,1830,2010 
1390 GOTO 1190 
1400 ' 

1410 'Query an existing part 

1420 •' 

1430 TRNS* = "query" 

im GOSUB 2090 'Get part nunber 

1450 GOSUB 2190 'Print part 

1460 PRINT : INPUT "Press <RETURN> to continue... *,At 

1470 RETURN 

1480 ' 

1490 'Enter a new part 
1500 ' 
1510 PRINT 
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(Tutorial 15-1: Continued) 

1520 NUMPTS = NUMPTS + 1 : PART = NUMPTS 'This is the new part nuiber 
1530 LSET DESC* = 'NEW PART" 

1540 lset cm = mm> lset redr* = mki*<o) lset price* = iksmo) 

1550 GOSUB 2280 'Edit new part 

1560 PRINT : INPUT "More parts to enter (Y/N)? ".A* 

1570 IF A*="Y" THEN 1510 

1580 RETURN 

1590 ' 

1600 'Edit an existing part 
1610 ' 

1620 TRNS* = "edit" 

1&30 GOSUB 2090 Get part maber 

1640 GOSUB 2280 Edit part 

1650 PRINT : INPUT "More Parts to edit «Y/N>? ".A* 

1660 IF A$="Y" THEN 1630 

lo70 RETURN 

1680 ' 

1690 'Sell a part 
1700 ' 

1710 TRNS* = "sell" : SIGN = -1 

1720 GOSUB 2420 'Carry out sales transaction 

1730 RETURN 

1740 ' 

1750 'Purchase transaction 
1760 ' 

1770 TRNS* = "purchase" : SIGN = 1 

1780 GOSUB 2420 Carry out Purchase transaction 

1790 RETURN 

1800 ' 

1810 'List parts below reorder level 
1820 ' 

1830 COUNT = 

1840 FOR PART = 1 TO NUMPTS 

1850 GET 11. PART + 1 

186.) OTY = CVKQTY*) : REDR = CvKREDfi*} 

1870 IF QTY > REDR THEN 1930 

1880 COUNT = COUNT «■ 1 

1890 GOSUB 2190 Print Part 

1900 PRINT "»-->"; 

1910 IF QTY = REDR THEN PRINT " At": ELSE PRINT REDR-QTY: "bellow's 
1920 PRINT " reorder level" 
1930 NEXT PART 

1940 IF COJNT = THEN PRINT "No ": ELSE PRINT:PRINT COM; 

1950 PRINT "parts below reorder level 

1960 PRINT : INPUT "Press <RETURN> to continue... '.A* 

1970 RETURN 

1980 ' 

1990 'End/Close files 
2000 ' 
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2010 LSET STATi = 'C* 'Set file status to closed 

2020 LSET NUMPTSt = HKIKNimS) 

2030 PUT 11,1 

2040 CLOSE #1 

2050 END 

2060 ' 

2070 'Get part number 
2080 ' 

2090 PRINT : PRINT "Enter part number te ":TRNS*; : INPUT * , PART 

2100 IF PART >= 1 AND PART <= NUMPTS THEN 2140 

2110 PRINT BELLI; "Invalid part mwber." 

2120 PRINT "Part number lust be in the ranqe 1 to";MWT« 

2130 GOTO 2090 

2140 GET II, PART + 1 

2150 RETURN 

2160 ' 

2170 'Print a part 

2180 ' 
2190 PRINT 

2200 PRINT "Part number"; PART; TAB '18'! "Descriptions S ;BESC4 

2210 PRINT "Quant it r on hand:":CVI(QTY$> 

2220 PRINT "Reorder level: "fCVKREDRIj 

2230 PRINT "Price per unil:";CVS(PRICEi' 

2240 RETURN 

2250 ' 

2260 'Edit part entry 

2270 ' 

2280 PRINT "Part nu«ber:";PART:" (Push return for no channel 
2290 PRINT "Description: ";DESC$:TAB(45..; : INPUT '.hi 
2300 IF A$O n " THEN LSET DESC* = A* 

2310 PRINT "Quantity on hand:";CVI(9TY*);TAB(45): : INPUT ": ",At 

2320 IF A*<>" THEN LSET QTYt = HKINvALiAt)) 

2330 PRINT "Reorder level: ";CVI <REDftt ) : TAB(45> ; : INPUT ": \M 

2340 IF WO" THEN LSET REDR$ = MKI*(VAL(A*)) 

2350 PRINT "Price per unit:";CVS(PRICEt);TAB(45); : INPUT ': ".At 

2360 IF A$<>" THEN LSET PRICE* = MKSWALtAt)) 

2370 PUT II, PART + 1 

23S0 RETURN 

2390 ' 

2400 'Do sales or purchase transaction 
2410 ' 

2420 GOSUB 2090 Get part number 

2430 GOSUB 2190 Print part 

2440 QTY = CVKQTY*) : REDR = CVKREDR*) : PRICE! = CVStPRICEIi 

2450 PRINT : PRINT "Enter number of units to ";TRNS»; : INPUT ": ",A 

2460 IF QTY + SIGN*A THEN 2490 

2470 PRINT "Can not sell more than*;QTY; "units." 

2480 GOTO 2450 

2490 QTY = QTY + SIGN** 
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(Tutorial 15-1: Continued) 

2500 PRINT "There are now":QTY: "units in stock." 
2510 LSET QTY$ = MKI$(6TY) 
2520 PUT II, PART + 1 

2530 PRINT : PRINT "More parts to ";TRNS$; : INPUT " (Y/N)? ",A$ 
2540 IF At="Y" THEN 2420 
2550 RETURN 

The lines from 1000 through 1390 constitute the main program, 
which includes the menu in lines 1190 through 1390. The second por- 
tion of the program, lines 1400 through 2050, contains the main sub- 
routines. The final section of the program, lines 2060 through 2550, 
contains the primitive subroutines of the program. These primitive 
subroutines are called only by the main subroutines. 

The main menu gives you a good idea of the function of the 
program: 

1 ... Query an existing part 

2 ... Enter a new part 

3 ... Edit an existing Part 

4 ... Sales transaction 

5 ... Purchase transaction 

6 ... List parts below reorder level 

7 ... End prograi/close file 

This program uses one new method that you should be aware of: 
namely, the two FIELD statements in lines 1050 and 1080. The exis- 
tence of two FIELD statements means that each time a record is 
read from the file, the variables in both FIELD statements will be 
filled in by MBASIC. We do this because we are using a header 
record, which is a special record in the file with a different format 
than the rest of the file. 

Line 1050 describes only the header record, while line 1080 de- 
scribes the data records. When we read and write the header record, 
we will use STAT$ and NUMPTS$ from line 1050. The header 
record is the first record in the file, and contains information about 
the entire file. 

The first field of the header record is the file status (STAT$) and 
will contain either the letter O for "open" or C for "closed." This field 
is used to tell whether or not the file had been closed properly on its 
previous use. If the file has not been closed properly (that is, with 
menu selection 7), the number of parts (NUMPTS$) may not be 
accurate. In particular, if you add some parts to the file and then exit 
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the program without using selection 7 (for example, by typing CTRL- 
C), the header record will not reflect the additional parts. When the 
file is opened, a warning message is printed by line 1120 if STAT$ 
does not equal C. When selection 7 is chosen from the menu, line 2010 
sets the file status to C for "closed" just before closing the file. 

The second field of the header record, NUMPTS$, contains the 
number of parts in the file. Storing this number in the header record 
allows the program to accurately check for reading past the end of 
the file, as well as to know what the next available part number is. 
This number is stored with the two-byte integer, which allows for a 
maximum of 32,767 records (provided that your disk has the room). 
Recall that the Checkbook program had no way of knowing how 
many checks were in the file without asking the user. 

The FIELD statement in line 1080 describes the data records for 
each part in the inventory. We have decided that the part number 
will be the same as the record number. Each part number has a de- 
scription (DESC$), quantity (QTY$), reorder level (REDR$), and 
price (PRICE $). The combined length of each of these fields is 38, 
which is also the record length. 

Note that even though the combined length of the fields of the 
header record is only three bytes, the record itself is 38 bytes long. 
Remember that in a random-access file, all the records must be the 
same length. 

Line 1090 is our first use of the LOF function. If LOF(l) is 0, then 
file number one contains no records. Lines 1150 and 1160 initialize 
the header record in this case. 



There are 8 parts on file. 

Choose one of the following functions: 

1 ■■. Query an existing part 

2 . . . Enter a new part 

3 ... Edit an existing part 

4 ... Sales transaction 

5 ... Purchase transaction 

6 ... List parts below reorder level 

7 ... End prograa/close file 

Selection nusber: I 



Enter part nuiber to query: 1 
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(Tutorial 15-1: Continued) 

Part maber 1 Description: OSBORNE 
Quantity on hand: 1 
Reorder level: 2 
Price per unit: 1500 

Press <RETURN> to continue... 



There are 8 parts on file. 

Choose one of the following functions: 

1 ... Query an existing part 

2 ... Enter a new part 

3 ... Edit an existing part 

4 ... Sales transaction 

5 ... Purchase transaction 

6 ... List parts below reorder level 

7 ... End proqrai/close file 

Selection maber: 2 

Part muber: 9 (Push return for no change) 



More parts to enter (Y/N)? N 



There are 9 parts on file. 

Choose one of the following functions: 

1 ... Query an existing part 

2 ... Enter a new part 

3 ... Edit an existing part 

4 ... Sales transaction 

5 ... Purchase transaction 

6 ... List parts below reorder level 

7 ... End progran/close file 

Selection nuiber: 4 

Enter part number to sell: 2 

Part ntaber 2 Description: Z-19 
Quantity on hand: 5 
Reorder level: 3 
Price per unit: 696.5 



Description: NEW PART 
Quantity on hand: 
Reorder level: 
Price per unit: 



8 

3 

600 



TERMINAL 
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(Tutorial 15-1: Continued) 

Enter number of units to sell: 3 
There are now 2 units in stock. 

More parts to sell (Y/N)? N 



There are 9 parts on file. 

Choose one of the fol lowing functions: 

1 ... Query an existing part 

2 . . . Enter a new part 

3 ... Edit an existing part 

4 ... Sales transaction 

5 ... Purchase transaction 

6 ... List parts below reorder level 

7 ... End program/close file 



Selection muber: ? 
Ok 
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EXERCISES 



1. Write a program that will allow you to enter names and 
addresses into a random-access file. Use a header 
record to record the total number of names and 
addresses. 

2. Write a program that will print out, in mailing label 
format, only those names that have a specified ZIP code 
from the file created in the first question. 

3. Write a separate program that will allow you to edit 
any data in the file from the first question. Use 
MERGE to merge these two programs into one. 

4. Write an error-trapping subroutine for Tutorial 15-1 
that will properly close the file and terminate the pro- 
gram if any error is encountered. 

5. Explain why a PUT, GET, INPUT#, or WRITE # com- 
mand might not cause the disk to move each time one of 
these commands is executed. 




Using Boolean Operators 



Statements: 


POKE 


Operators: 


NOT, XOR, IMP, EQV 


Functions: 


PEEK, OCT$, HEX$ 



Consider the following problem. The agricultural department of a 
university requires a program that will maintain a mailing list for 
their 60,000 subscribers. They produce 500 different publications on 
various agricultural problems each year. The subscribers range from 
farmers who may be interested in only one publication to other uni- 
versities that are interested in all 500 publications. Of course, sub- 
scribers may alter their subscriptions at any time. 

If we use only one byte of memory per publication for each sub- 
scriber in our data base, that will be 500 bytes for each subscriber. 
With 60,000 names in the data base, that would be 30 million bytes 
(60,000X500). Notice that this is a conservative figure because we 
have not included the memory required for the names and addresses. 

Let's examine an alternate method of storing this data. Each byte 
that we use only determines whether or not a subscriber requests a 
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certain publication; it therefore records only "yes" or "no." Now con- 
sider that a byte is made up of 8 bits, with each bit being a 1 or a 0. If 
we can use these bits themselves to represent "yes" or "no," we will 
need only one eighth the storage of the previous method, or 3.75 mil- 
lion bytes. 

This alternative method could be very useful if it saved you from 
buying an extra hard disk. On a smaller scale, using this procedure 
could eliminate the need for another floppy disk drive. The idea of 
using bits to store data is called bit mapping; it will be developed at 
the end of this chapter. 

In order to program the type of problem just described, you need 
to know first how information is stored in the computer, and second, 
how to use Boolean operators as logical operators. 

Before we begin working with logical operators, we need to be 
sure you have the necessary background for working with the binary 
number system. If you are familiar with the binary system, skip to 
the next section. If this is new to you, or if you are rusty in this area, 
read on. 

How Computers Store Numbers 

All computers work with the binary number system, which is also 
known as base 2. A byte (the storage unit that holds an individual 
ASCII character) consists of an eight-place binary number. An 
example of a binary number is 11010110 2 . Each of these eight places 
is known as a bit. When we talk about binary and decimal numbers 
in the same context, we will distinguish between them with the sub- 
script "2" for binary (base 2) and the subscript "10" for decimal (base 
10). 

If working with other number bases is new to you, consider the 
following comparisons between the decimal and binary number 
systems. 

In the decimal system we use ten digits (0 through 9). In the 
binary system there are two digits (0 and 1). 

In the decimal system, a number is represented by digits that 
stand for multiples of powers of 10. For example: 

437 = 4X10 2 + 3X10 1 + 7X10°= 400+30+7 = 437 

Each digit in the number is multiplied by 10, with an increase of 1 in 
the exponent as we move to the left. 
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The same idea applies to the binary system. For example: 

1110 2 = 1X2 3 + 1X2 2 + 1X2 1 +0X2° = 8+4+2+0 = 14 10 

Note that any number raised to the power is equal to 1 (for exam- 
ple, 10° =1, 8° = 1, 2° = 1). 

If a decimal number is multiplied by 10, the effect is to move the 
digits one place to the left in respect to the decimal point. For 
example: 

437X10 = 4370 
4370X10 = 43700 

The same is true for binary numbers. When they are multiplied by 2, 
the digits are shifted one place to the left. For example: 

1110 2 X 2 10 = 11100 2 
11100 2 X2 10 = lllOOOj, 

Since this is not so obvious in binary, let's verify it by using the 
decimal system. As we have already seen, 1110 2 in binary equals 14 10 
in decimal. Therefore, 

U100 2 = 1X2 4 + 1X2 3 + 1X2 2 + 0X 2 1 + 0X 2° = 16+8+4+0+0 = 28 10 

111000 2 = 1X2 5 + 1X2 4 + 1X2 3 + 0X 2 2 + 0X 2 1 + 0X 2° = 
32+16+8+0+0+0 = 56 10 

And last of all, dividing a decimal number by 10 moves the digits 
one place to the right (for example, 680/10 = 68). It follows that divid- 
ing a binary number by 2 also moves (shifts) the digits one place to 
the right. 

LARGEST NUMBER STORED BY A BYTE 

If all the eight positions or bits of a byte are filled with l's (for 
example, 11111111), the binary number then represents 255 w in dec- 
imal notation. 

11111111 2 = 1X2 7 + lX2 fi + 1X2 5 + 1X2 4 + 1X2 3 + 1X2 2 + 1X2 1 + 1X2° = 
128+64+32+16+8+4+2+1 = 255 10 

Notice that 255 10 is the largest number that can be represented by a 
byte. 
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Working With Operators 

[NOT, XOR, IMP, EQV] 

The NOT, XOR (Exclusive OR), IMP (Imply), EQV (Equivalence), 
AND, and OR operators can be used as either Boolean or logical 
operators. 

The term Boolean is derived from the name of the English mathe- 
matician George Boole. He did much of the early development of 
these types of operators in the late nineteenth century. 

BOOLEAN OPERATORS 

Boolean operators are used to test whether the comparison of 
statements is true or false. For example, consider the following 
program: 

!0 A=3:B=2 

20 FOR D= -2 TO 2 

30 IF m AND DO0 THEN PRINT "TRUE" ELSE PRINT "FALSE 1 

40 NEXT D 

RijN 

TRUE 
TRUE 
FALSE 
TRt€ 
TRUE 
uk 

In this example A equals 3 and B equals 2. Therefore, A is always 
greater than B. D has the successive values -2, — 1, 0, 1, and 2. 
Therefore, D is not equal to except on the third pass of the FOR/ 
NEXT loop. The Boolean operator AND is used to judge when both 
comparisons are true at the same time. 

The relational operators (=, <, >, <>, <=, and >=) are actually 
Boolean operators. This means that they return the values TRUE or 
FALSE. The equal sign (=) plays a dual role: it is both an assign- 
ment statement (as in LET A = 3) and a Boolean operator. 

As an example, consider the following: 

10 A = 5 : 6 = 5 
20 P = (A = 6} 
30 PRINT P 
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m 

-i 
Ok 

The first equal sign in line 20 is for assignment. It assigns to F the 
TRUE or FALSE value returned by the comparison (A = B). The 
parentheses are unnecessary; they are used to help visually separate 
the assignment from the comparison. When you run this program, 
since A and B are equal to 5, the comparison is TRUE and P is 
assigned the value — 1, which MBASIC uses to designate TRUE. 
MBASIC uses to designate FALSE. 
Enter and run this example: 

10 B = 

20 FOR A = -2 TO 2 
30 P = (A = B» 
40 PRINT P 
50 NEXT A 

RUM 



-1 




0k 

If you change the A=B in line 30 to A>B, what will be the result? 

In a somewhat more practical example, let's use this idea to con- 
trol a WHILE/WEND loop. Enter and run the following: 

10 A=5 : POSITIVE = (A>0) 

20 WHILE POSITIVE 

30 PRINT A; 

40 A=A-1 

50 POSITIVE = W>0> 

60 WEND 

RUN 

5 4 3 2 1 
0k 

Notice that as soon as A becomes 0, the variable POSITIVE becomes 
FALSE and the loop terminates. 

If Boolean operators are used to compare the individual bits in a 
byte, then they are considered logical operators. We'll look at this 
procedure shortly. 



TRUTH TABLES 

[NOT, AND] 

A common way of thinking of logical or Boolean operators is in 
the form of true/false statements. For example, if X represents a true 
expression, then NOT X will be a false expression, and conversely, if 
X represents a false expression, then NOT X represents the true 
expression. A truth table is a shorthand way of representing this rela- 
tionship. The truth table for NOT is given in Table 16-1. 

The truth tables for the remaining logical operators involve the 
relationship between two true/false expressions. Here's the way the 
AND operator works: if X is true and Y is true, then X AND Y is 
true. 

The complete list of truth tables for the logical operators sup- 
ported by MBASIC is shown in Table 16-2. 

LOGICAL OPERATORS 

Now we're getting to the interesting part of this chapter — 
manipulating the individual bits in a byte. Remember that our pur- 
pose here is to save memory by using what is known as "bit 
mapping." 

Logical operators work with the individual bits in each byte. 
Thus, instead of comparing two bytes, we are comparing two bits. 
The truth tables we saw in the last section are still valid, but now 
instead of comparing true and false values, we are comparing l's and 
O's. In Table 16-2, simply replace the Ts with l's and the Fs with O's. 

Remember that in MBASIC each integer is actually two bytes 
long, so there are 16 bits in each integer variable. For example, is 
stored as 00000000 00000000 2 , 1 10 is stored as 00000000 00000001 2 , 
and 18 10 is stored as 00000000 00010010 2 . 

Negative numbers are a bit trickier. If the far left bit of the bi- 
nary number is a 1, the number is negative. To determine what the 
value of the negative number is, you must change all the remaining 



Table 16-1. 

Truth Table for NOT 



X 


NOT X 


T 


F 


F 


T 
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Table 16-2. 

Truth Tables 



NOT 


X 


NOT 








X 






T 


F 






F 


T 




AND 


X 


Y 


X AND Y 




T 


T 


T 




T 


F 


F 




F 


T 


F 




F 


F 


F 


OR 


X 


Y 


X OR Y 




T 


T 


T 




T 


F 


T 




F 


T 


T 




F 


F 


F 


XOR 


X 


Y 


X XOR Y 




T 


T 


F 




T 


F 


T 




F 


T 


T 




F 


F 


F 


TTVTP 

LJnJr 


V 
A 


v 
i 


Y IMP V 




T 


T 


T 




T 


F 


F 




F 


T 


T 




F 


F 


T 


EQV 


X 


Y 


X EQV Y 




T 


T 


T 




T 


F 


F 




F 


T 


F 




F 


F 


T 



l's to O's and O's to l's, then add 1 to the result (this is called the one's 
complement of the number). For example, the number 11111111 
10100101 is the same as negative 00000000 01011010 plus 1, or nega- 
tive 00000000 01011011, or -91 (decimal). The number -1 is repre- 
sented as 11111111 11111111. 

When we compare two integers with the Boolean operators, we 
compare them bit-by-bit. Thus, to determine the result of 12 AND 
10, write out the bit maps of each, and use the AND operation on 
each pair of bits: 

12 - 00000000 00001100 

10 = 00000000 00001010 



12 AND 10 = 00000000 00001000 
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The result, 00000000 00001000, is equal to 8 (decimal). To perform 
this same operation with an MBASIC program, enter and run the 
following: 

10 X = 12 : Y = 10 
20 PRINT X AND Y 

RUN 

Ok 

Now add line 30 to the preceding program. 
30 PRINT X OR i 



8 
14 

0k 

The result is found the same way as before— that is, by using OR on 
each pair of bits: 

12 = 00000000 00001100 

10 = 00000000 00001010 



12 OR 10 = 00000000 00001110 
The result is equal to 14 (decimal), as the program reported. 

Setting Bits 

The following program uses the logical operators to look at the 
bits in a random byte: 

100 DEFINT A-Z 

110 RANDOMIZE 

120 0RANGE=1 

130 BANANA=2 

140 APPLE=4 

150 KIWI=8 

160 PEACH=16 

170 B0WL=INT(RND*32) 

180 PRINT "B0HL = ";B0WL;" has the following:" 
190 IF (BOWL AND ORANGE) <>0 THEN PRINT "ORANGE" 
200 IF (BOWL AND BANANA) <>0 THEN PRINT "BANANA" 
210 IF (BOWL AND APPLE)<>0 THEN PRINT "APPLE" 
220 IF (BOWL AND KIWDOO THEN PRINT "KIWI" 
230 IF (BOWL AND PEACH) <>0 THEN PRINT "PEACH" 



Using Boolean Operators 297 



In lines 120 through 160, each fruit is set equal to a bit. 



ORANGE 


= lio 


(00000001 2 ) 


BANANA 


— 2io 


(00000010 2 ) 


APPLE 


= 4 10 


(00000100 2 ) 


KIWI 


— 8 1 n 


(00001000 2 ) 


PEACH 


= 16io 


(00010000 2 ) 



In line 170, BOWL is set to INT (RND*32). The number gener- 
ated will be a byte with any combination of l's and 0's for the last five 
bits. If BOWL is 17, it is stored in the computer as 00000000 
00010001. Lines 180 through 220 determine if these bits are set (equal 
to 1) or not set (equal to 0) in BOWL. 

Now run the program: 

RUN 

Randca number seed (-32768 to 32767)? 98 

BOWL = 3 has the following: 

ORANGE 

BANANA 

Ok 

RUN 

Random nuaber seed i-32768 to 32767)? 456 

BOWL = 23 has the following: 

ORANGE 

BANANA 

APPLE 

PEACH 

Ok 

In the first run, the random number seed 98 produced the random 
number 3. Therefore, BOWL was 00000000 00000011 2 . 

Since the two rightmost bits are set to 1, you can see from the 
table following the listing that the fruits chosen are ORANGE and 
BANANA. Lines 190 and 200 determine this and print the appro- 
priate results. In the second run, the random number chosen, 23, has 
the binary value 00000000 00010111 2 . Again, inspecting the table fol- 
lowing the listing shows that the fruits selected are ORANGE, BA- 
NANA, APPLE, and PEACH. 



Shifting Bits Left or Right 

The following program changes any decimal number in the range 
through 255 into a binary number. Enter and run the program. 



298 The MBASIC Handbook 



100 BEFINT A-2 

110 INPUT "Enter an integer frot to 255: ".BYTE 
115 PRINT BYTE;"- *; 
120 FOR 1 = 1 TO 8 

130 PRINT USING '•■#"; (BYTE AND 128.1/128: 
140 BYTE = (BYTE AND 127.1*2 
150 NEXT I 

RUN 

Enter an integer fro» to 255: 16 
16 = 00010000 
Ok 
RUN 

Enter an integer froa to 255: 137 
137 = 10001001 
Ok 

The key part of this program is the FOR/NEXT loop in lines 120 
through 150. In line 130, we have the expression (BYTE AND 
128)/128; 128 10 is equal to the binary number 10000000 2 . The AND 
operation is being used to test whether a bit is on. Since 128 10 has O's 
in all but the leftmost column, the result of BYTE AND 128 will 
have only this bit turned on, or no bits on. Since this result is either 
128 or 0, (BYTE AND 128)/128 is either 1 or 0. 

Line 140 performs the function of shifting the bits in BYTE to the 
left. As we discussed earlier, multiplying a decimal number by 10 
moves the digits to the left (437X10=4370). In the binary system, 
multiplying the number by 2 has the same effect. 

The purpose of line 140 is to move the bits left while preventing an 
overflow error. BYTE AND 127 removes the leftmost bit from our 
number by setting it to 0. Therefore, we never get a number greater 
than 255 in the loop. 

To demonstrate the program, let's use our second run, with 137 as 
our value. The number 137 (decimal) is equal to 10001001 (binary). 
The first time through the FOR/NEXT loop, line 130 prints a 1, since 
the left bit in BYTE is 1, and thus (BYTE AND 128)/128 is 1. Line 
140 then computes (BYTE AND 127) as follows: 

BYTE = 00000000 10001001 

127 - 00000000 01111111 

BYTE AND 127 = 00000000 00001001 

The result, 00001001 (binary) or 9 (decimal), is multiplied by 2 to 
shift the bits one position to the left. The next time through the FOR/ 
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NEXT loop, line 130 prints a since the left bit in the new BYTE is 
0, and thus (BYTE AND 128)/128 is 0. 

The loop continues, each time printing a or 1, depending on 
whether the value of (BYTE AND 128) is or 128. 

Using Octal and Hexadecimal Numbers 

[OCTS, HEXS] 

Computers work only in binary. Unfortunately, binary is a diffi- 
cult number system for humans to work with since working only 
with l's and 0's makes it very easy to make mistakes. Although 
MBASIC works with the decimal number system, decimal is not con- 
venient for many applications. 

Fortunately, MBASIC allows you to work with two other number 
bases: octal, which is also known as base 8, and hexadecimal (or hex), 
which is base 16. These number systems are a compromise between 
computers and humans; it is easy for the computer to convert to these 
systems from binary, and they are more resistant to human error 
than binary. Of the two, hexadecimal is much more commonly used 
than octal by microcomputer programmers. 

MBASIC assumes that any number you enter into a program will 
be a decimal number, and you must specifically tell the program if 
you are using any other type. To designate a number as octal, preface 
the number with an ampersand (&) and the letter (for example, 
255 ;o is also written &0377). Preface hexadecimal numbers with an 
ampersand and the letter H (for example, 1114 10 is also written 
&H45A). Table 16-3 shows some decimal numbers and their hexa- 
decimal equivalents. 

The OCT$ and HEX$ functions are used by MBASIC to convert 
the output of a program from the standard decimal notation to octal 



Table 16-3. 

Decimal-to- Hexadecimal Conversion 



Decimal 1 2 8 9 10 11 12 13 14 15 16 17 18 19 30 31 32 
Hexadecimal 1 2 8 9 A B C D E F 10 11 12 13 IE IF 20 



Decimal 33 34 159 160 161 254 255 256 257 1023 1024 1025 
Hexadecimal 21 22 9F AO Al FE FF 100 101 3FF 400 401 



and hexadecimal notation. As an example, enter and run the 
following: 



10 PRINT " Decimal Octal Hexadecimal* 

20 PRINT " * 

30 FOR X= 100 TO 500 STEP 50 
40 PRINT X.0CT*<X),HEX*(Xi 
50 NEXT X 

run 



Decimal 


Octal 


Hexadecimal 


100 


144 


64 


150 


226 


96 


200 


310 


C8 


250 


372 


FA 


300 


454 


12C 


350 


536 


15E 


400 


620 


190 


450 


702 


1C2 


500 


764 


1F4 



Ok 

Converting Binary Numbers to Hexadecimal 

An eight-bit binary number always converts to a two-place hexa- 
decimal number. Consider 1111 2 , which is the largest four-bit binary 
number: 

llUj = 2 3 + 2 2 + 2 1 + 2° = 8+ 4+ 2+1= 15 10 . 
The smallest four-place binary number is: 
0000 2 = 10 

Notice that a four-bit binary number gives us 16 possible values, 
through 15 (decimal). In hexadecimal, these values are written as 
through F. So in one byte, the four rightmost digits of a binary 
number represent the single rightmost digit of a hexadecimal 
number. Furthermore, the four leftmost digits of an eight-bit binary 
number represent the left digit of a two-digit hexadecimal number. 

To convert a binary number to hex, treat the first four bits and 
the last four bits as separate units. For example, separate the number 
101100U 2 into 

First part: 1011 = 2 3 + 2 1 + 2° = 8 + 2 + 1 = B 16 
Second part: 0011 = 2 1 + 2° = 2 + 1 = 3 16 
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Therefore, 10110011 2 = B3 16 . You may verify this by converting both 
numbers to decimal: 

10110011 2 = 2 7 + 2 5 + 2 4 + 2 1 + 2° = 128 + 32 + 16 + 2 + 1 = 179 10 
B3 16 = BX16 1 + 3X16° = 176 + 3 = 179 10 

The program we used earlier to convert from decimal to binary 
may also be used to convert from octal or hexadecimal to binary. 
Simply type in the numbers with the appropriate MBASIC prefix 
(&H for hexadecimal and &0 for octal). Let's rewrite the program 
slightly. 

100 DEFINT A-Z 

110 INPUT "Enter an integer fro» to 255: ".BYTE 
115 PRINT BYTE; "= 
120 FOR I = 1 TO 8 

130 PRINT USING "•"MBYTE AND &H80)/128; 
140 BYTE = (BYTE AND &H7F)*2 
150 NEXT I 

Running the program with hexadecimal and octal numbers pro- 
duces the following: 

Enter an integer froi to 255: IH10 
16 = 00010000 
Ok 

m 

Enter an integer froi to 255: W20 
16 = 00010000 
0k 

Notice that in lines 130 and 140 the decimal numbers 128 and 127 
have been converted to hexadecimal. This makes no difference to 
MBASIC. You will find that when you work with a program that 
produces binary output, using hexadecimal numbers in the program 
is often more convenient. 

Talking to the Computer 

[PEEK, POKE] 

You have already talked to the computer through MBASIC since 
MBASIC is actually an interpreter. But with the PEEK function and 
the POKE statement, you can also speak directly to the computer; in 
effect, you can see what is on its mind. 



302 The MBASIC Handbook 



Let's look at a byte stored in a given place in the computer's 
memory. To do this, we use the PEEK function. PEEK can tell us 
what is stored in any memory location in the computer. 

From the direct mode, give the command 



32 
Ok 

In this case, PEEK has returned 32, but it could have been any 
number in the range through 255, depending on the memory loca- 
tion you looked at. PEEK has told us that the value stored in memory 
location 100 is 32. It is always safe to use PEEK to look at any point 
in the computer's memory. Using PEEK in this way does not disturb 
what is there but only displays it for you on the screen. 

PEEK's counterpart, the POKE statement, is an entirely different 
story in that POKE places a number in memory. POKE is used to 
place the number you specify at a particular memory location. This, 
of course, can have unpredictable results if you do not know the func- 
tion of the byte at that address in memory. 

Let's illustrate the use of PEEK and POKE. 

PRINT PEEKUOO) 
32 

POKE 100.65 
Ok 

PRINT PEEK(IOO) 

65 
Ok 

Now we will use POKE to put the original value back into location 
100. 

POKE 100,32 
0k 

You can verify that 32 is at address 100 by again using PEEK to 
print the value. 

The ideas presented in this chapter may be new to you, and some 
are rather difficult. But you now have at your disposal the tools to 
handle the bit-mapping concept we used at the beginning of this 
chapter. Bit mapping can reduce the memory requirements of your 
programs dramatically. 
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It is important to note that the tools presented in this chapter are 
not limited only to bit mapping. Boolean and logical operators have 
many applications. The more tools you have available to you, the more 
easily you can handle your programming challenges. 



TUTORIALS 



Tutorial 16-1: Dump Memory 

Our first application is a program that allows you to display on 
the screen any portion of the computer's memory that you wish. The 
program prompts you to enter the first and last addresses of the sec- 
tion of memory you wish to examine. The addresses may be entered 
in decimal, hexadecimal, or octal. 

10 REM - -=*DUMP.C16*=- 

20 REM - Hexadecimal memory dump 

30 REM - 2/15/83 

40 REM - 

100 DEFINT A-Z 

110 INPUT "Enter start addresses: ".ADDfi 
120 INPUT "Enter last address: ".LAST 
130 PRINT 

140 WHILE ADDR <= LAST 

150 PRINT RIGHT$("0W»+HEX$(ADDR),4);":"; 

160 FOR I = ADDR TO (ADDR OR &HF.< 

170 PRINT " U ;RIGHT*("0"+HEX*(PEEK(I)).2); 

180 NEXT I 

190 PRINT " "; 

200 FOR I = ADDR TO (ADDR OR tHF) 
210 CH = PEEK(I) 

220 IF CH < 32 OR CH > 126 THEN PRINT \"; ELSE PRINT CHF$(CH); 

230 NEXT I 
240 PRINT 

250 ADDR = (ADDR OR &HF) + 1 
260 WEND 
270 END 

Now let's consider the main points of interest in the program. The 
WHILE/WEND loop in lines 140 through 260 controls the output 



from the initial address to the final address. Line 150 prints out the 
address for the first byte of memory shown in each row. The FOR/ 
NEXT loop in lines 160 through 180 uses the PEEK function to print 
the hex value held in memory for up to 16 successive locations. 

The effect of using (ADDR OR &HF) as the upper bound of the 
FOR/NEXT loops is purely cosmetic. The purpose is to make each 
line end on an address that is 1 less than an even multiple of 16, thus 
causing all lines after the first to start on an even multiple of 16. This 
produces a dump that is easier to read. 

To verify this action, remember that &HF is 1111 2 . (ADDR OR 
&HF) forces the last four bits of ADDR to be all l's, and the next 
number (the beginning of the new line) will have all 0's for the last 
four bits. 

The second FOR/NEXT loop in lines 200 through 230 prints the 
character represented by the ASCII code for each of the memory 
locations as long as the code is in the range 32 to 126; otherwise, a 
period is printed. Line 250 sets ADDR to the address of the next 
16-byte block of memory. The output looks like this: 



RIM 

Eirter start addresses: 4H250 
Enter last address: 1*350 



0250: 


C5 


a 


4F 


4E 


D4 


9A 


4C 


45 


4! 


02 


92 


49 


4E 


04 


1C 


53 


. .ON. .LEA. . IN. • S 


0260: 




C7 


ID 


44 


42 


CC 


IE 


56 


C9 


2B 


56 


D3 


2C 


56 


C4 


20 


N..DB..V.+V..V.- 


0270: 


4F 


D3 


OC 


18 


52 


M 


16 


41 


4C 


CC 


B6 


4F 


4S 


4D 


4r 


CE 


o..«..AL..omo. 


0280: 


BS 


m 


41 


49 


CE 


B9 


00 


45 


4C 


45 


5« 


C5 


M 


41 


54 


CI 


.HAI...ELET..AT. 


0290: 


84 


4? 


CD 


86 


45 


46 


53 


54 


02 


AD 


45 


46 


49 


4E 


P4 


AE 


.I..EFST..EFIN.. 


02AO: 


45 


46 


53 


4E 


C7 


AF 


45 


46 


44 


42 


CC 


80 


45 


C6 


98 


00 


EFSN. .EFDB..E. .. 


02B0: 


4C 


^3 


C5 


A? 


4E 


C4 


81 


52 


41 


53 


C5 


A6 


44 


49 


D4 


A7 


LS..N..RAS..DI.. 


02C0: 


52 


5? 


4F 


D2 


A3 


52 


CC 


D6 


52 


D2 


D7 


58 


DO 


0B 


4F 


C6 




02D0: 


2F 


51 


Do 


FA 


00 


4F 


D2 


82 


49 


45 


4C 


C4 


CO 


49 


4C 


45 


/Q...0..IEL..ILE 


02E0: 


B3 


C6 


EE 


D3 


52 


C5 


& 


49 


D8 


IF 


00 


4F 


54 


CF 


39 


4F 


....R..I...0T..0 


02F0: 


20 


54 


CF 


89 


4F 


53 


55 


C2 


80 


45 


D4 


CI 


00 


45 


58 


A4 


T..0SU..E...EX. 


0300: 


M 


00 


4£ 


50 


55 


M 


85 


C6 


8B 


4E 


53 


54 


D2 


DA 


4£ 


D4 


..NPU. ...NST..N. 


0310: 


05 


4£ 


BO 


10 


4D 


DO 


FB 


4E 


4B 


45 


59 


A4 


DO 


00 


00 


49 


.N..M..NKEY....I 


0320: 


4C 


EC 


C8 


00 


50 


52 


49 


4E 


04 


9E 


4C 


49 


53 


04 


9F 


50 


L...PRIN..LIS..P 


0330: 


4F 


D3 


IB 


45 


D4 


88 


49 


4E 


C5 


B! 


4F 


41 


C4 


C4 


53 


45 


0..E..IN..0A..SE 


0340: 


D4 


C9 


49 


53 


04 


93 


4F 


07 


OA 


4F 


C3 


30 


45 


CE 


12 


45 


..IS..0..O.0E..E 


0350: 


% 


54 


A4 


01 


4F 


C6 


31 


00 


45 


52 


47 


C5 


C5 


4F 


C4 


FC 


FT.. 0.1. ERG.. 0.. 



0k 

Hi 

Enter start addresses: &H61D0 
Enter last address: &H62D0 
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(Tutorial 16-1: Continued) 



61D0: 


2D 


09 


09 2D 


3D 


2A 


44 


55 


4D 50 


2E 43 31 36 


2A 


3D 


-..-=*DUMP.C16*= 


6lE0i 


2D 


00 


03 62 


14 


00 


3F 


20 


2D 09 


09 48 65 78 


61 


64 


-..b... -..Hexad 


61F0: 


65 


63 


69 6D 


61 


6C 


20 


6D 


65 6D 


6F 72 79 20 


64 


75 


ecinal nemory du 


6200: 


6D 


70 


00 14 


62 


IE 


00 


8F 


20 2D 


09 09 32 2F 


31 


35 


■P..b... -..2/15 


6210: 


2F 


33 


33 00 


1C 


62 


28 


00 


8F 20 


2D 00 26 62 


64 


00 


/83..b(.. -.&bd. 


6220: 


AE 


20 


41 F3 


5A 


00 


4B 


62 


6E 00 


85 20 22 45 


6E 


74 


. A.Z.Kbn.. "Ent 


6230: 


65 


72 


20 73 


74 


61 


72 


74 


20 61 


64 64 72 65 


73 


73 


er start address 


6240: 


65 


73 


3A 20 


22 


2C 


41 


44 


44 52 


00 6D 62 78 


00 


35 


es: ".ADDR.ibx.. 


6250: 


20 


22 


45 6E 


74 


65 


72 


20 


6C 61 


73 74 20 61 


64 


64 


"Enter last add 


6260: 


70 
it 


6 5 


73 73 


3A 


20 


22 


2C 


4C 41 


53 54 00 73 


62 


82 


ress: ".LAST.sb. 


6270: 


00 


91 


00 87 


62 


BC 


00 


B4 


F2 20 


41 44 44 52 


20 


Fl 




6280: 


FO 


20 


C 41 


53 


54 


00 


AA 


62 96 


00 20 20 20 


91 


20 


. LAST..b.. 


6290: 


FF 


82 


28 22 


30 


30 


30 


22 


F2 FF 


9A 28 41 44 


44 


52 


..C000"...(ADDR 


62A0: 


29 


2C 


15 29 


3B 


22 


3A 


22 


3B 00 


CB 62 AO 00 


20 


20 




6280: 


20 


82 


20 49 


20 


F0 


20 


41 


44 44 


52 20 CE 20 


28 


41 


. 1 . ADDR . (A 


62C0: 


44 


44 


52 20 


F3 


20 


OC 


OF 


00 29 


00 FO 62 AA 


00 


20 


DDR . ...J..b.. 


62D0: 


20 


20 


20 20 


20 


91 


20 


22 


20 22 


3B FF 82 28 


22 


30 


. " ";..:"0 



Ok 

The two sections of memory displayed here contain code that may 
be of interest. The first section of memory shows part of MBASIC's 
symbol table. If you look at the right-hand section of the output care- 
fully, you might recognize a portion of MBASIC's commands and 
functions. They are shown in the shorthand method of MBASIC, with 
the first and last letter of each missing. The second section of 
memory displayed shows a portion of the program DUMP. It is 
shown in the partially compiled form, which is the way MBASIC 
stores a program in memory. 

There is a small problem with the program. If the address 
&H8000 lies within the range you want to dump, the program will 
not dump any memory. In addition, if &H7FFF is your last address 
entry, the program will get an overflow error in line 180. This prob- 
lem arises because the hexadecimal addresses &H8000 to &HFFFF 
are interpreted as negative numbers by MBASIC. 

Tutorial 16-2: Subscriber List 

This program maintains a list of periodical subscribers. It keeps 
track of which among the 80 periodicals available each subscriber is 
to receive. 

The program allows you to inspect existing subscribers' records 
and see what periodicals they take; to enter new subscribers into the 
list and assign them periodicals; and to add to, delete, or change the 
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periodicals taken by an existing subscriber. The program uses ten 
bytes to keep track of a subscriber's choices among 80 different 
periodicals. 



40 REM - 

1900 DEf INI A-Z 

ioio bell* = amm 

1020 REM *=- Open subscnbtion file 
1030 OPEN "R'.tl, "SUBSCRIB.BAT", 89 

1040 REM *=- Field the header record with status and number of subscribers. 
1050 FIELD #1.1 AS: STAT$,2 AS NOSBCt 

1060 REM *=- Field data records with description, quantity, reorder level, 
1070 REM *=- and price per unit. 

1080 FIELD #1,20 AS NMt,25 AS ADR1*,25 AS ADR2t,9 AS ZIP*, 10 AS BHAPt 
1090 IF L0FU) = THEN 1150 'Check file sue 
1100 GET #1.1 'Get old header record 

1110 IF STAT* = "C" THEN 1130 

1120 PRINT BELL*;"),— > WARNING: file not previously closed properly.' 
1130 NOSBC = CVI (NOSBCt) 
1140 GOTO 1170 

1150 NOSBC = 'New file, initialize header record 

1160 LSET NOSBCt = MKIt(O) 

1170 LSET STAT* = ■0' Set file to (O.'Pen status 

1180 PUT #1,1 Write out header record 

1190 PRINT : PRINT 

1200 PRINT "There are"; NOSBC: "subscribers on file." 
1210 PRINT 

1220 PRINT "Choose one of the following functions:" 
1230 PRINT " 1 ... Query an existing subscriber." 
1240 PRINT " 2 ... Enter a new subscriber." 
1250 PRINT " 3 ... Edit an existing subscriber.' 
1260 PRINT 4 ... End prograss/close file.' 
1270 PRINT 

1280 INPUT "Selection number: \SEL 

1290 IF SEL >= 1 AND SEL <= 4 THEN 1320 

1300 PRINT "Please enter a selection between 1 and 4." 

1310 GOTO 1230 

1320 IF NOSBC >00RSEL = 2QRSEL = 4 THEN 1350 
1330 PRINT BELLt;"»-> No subscribers on file," 
1340 GOTO 1280 

1350 ON SEL GOSUB 1400. 1480, 1600. 1690* 
1360 GOTO 1 190 
1370 - 

1380 'Query an existing subscriber 

tm ' 

1400 TRNSt = "querv" 

1410 GOSUB 1770 'Get subscriber number 

1420 GOSUB 1870 'Print subscriber 



10 REM - 
20 REM - 
30 REM - 



-=*SLtBSCRIB.ClS*=- 
Subscribtion Progras 
2/15/83 
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(Tutorial 16-2: Continued) 

1430 PRINT : INPUT "Press -RETURN- to continue... ".At 
1440 RETURN 
1450 ' 

1460 'Enter a new subscriber 
1470 ' 
1480 PRI N T 

•490 N0SBC = N0SBC + 1 : SBCNO = N0SBC This is tne new subscriber ntnbor 
1500 LSET NM$ = "NEW NAME" 

1510 LSET ADRlt = " : LSET ADR2* = " : LSET ZIP* = " 

1520 LSET BMAP* = STRING* (. 10.0.< 'Set to no subscriptions tall bits t>> 

1530 G0SUB 1970 'Edit new subscriber 

1540 PRINT : INPUT "Mete subscribers to enter f.Y/N.v '.At 

1550 IF At="Y" THEN 1480 

1560 RETURN 

1570 ' 

1580 'Edit an existing subscriber 
1590 ' 

1600 TRNSt = "edit* 

1610 GOSUE 1770 Get subscriber nuaber 

1620 GOSIJB 1970 Edit subscriber 

1630 PRINT : INPUT "More subscribers to edit iY/Nj? %At 

1640 IF At="V THEN 1616 

1650 RETURN 

1660 ' 

1670 'End/Close files 
1680 ' 

1690 LSET STAT* = "C" 'Set file status to closed 

1700 LSET NOSBCt = MKIttNOSBCi 

1710 PUT #1,1 

1720 CLOSE #1 

1730 END 

1740 ' 

1750 'Get subscriber nueber 
1760 ' 

1770 PRINT : PRINT "Enter subscriber nuaber to ":TRNSt: : INPUT ": \ SBCNO 

1780 IF SBCNO >= 1 AND SBCNO <= NOSBC THEN 1820 

1790 PRINT BELL*; "Invalid subscriber number/ 

1800 PRINT "Numbers must be in the range 1 to";N0SBC 

1810 GOTO 1770 

1820 GET #1. SBCNO + 1 

1835 RETURN 

1840 •■ 

185(i 'Print a subscriber 

I860 ' 
1870 PRINT 

1880 PRINT "Subscriber number";SBCN0;TABi.25.i;"NaiK-: ":NMt 
1890 PRINT "Address line U ":ADRlt 
1900 PRINT "Address line 2: ":ADR2* 
1910 PRINT "Zip code: ";UP% 
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(Tutorial 16-2: Continued) 

1920 GOSUB 2230 'Print subscription? 

1930 RETURN 
1940 ' 

1950 'Edit sijbscriber entry 
I960 ' 

1970 PRINT "Subscriber number: ";SBCN0; " (Push return for no change)' 
1980 PRINT "Naae: ":NM»;TAB(45); : INPUT ": \A$ 
1990 IF MO" THEN LSET NM* = A$ 

2000 PRINT "Address line 1: ";ADR1$;TAB(45.); : INPUT '": °,A* 
2010 IF MO" THEN LSET ADR1$ = A* 

2020 PRINT "Address line 2: ";ABR2$;TAB(45); : INPUT »: \Ai 

2030 IF MO*' THEN LSET ADR2$ = A* 

2040 PRINT "Zip code: ";ZIP*;TAB(45); : INPUT ": ".At 

2050 IF MO" THEN LSET ZIP$ = A* 

2060 GOSUB 2230 "Print subscribtions 

2070 PRINT : PRINT "Enter Publication numbers to add or delete:" 

2080 GOSUB 2450 'Input publication nu*oer 

2090 WHILE NOT (PNG = 0) 

2100 BYTE = (BYTE XOR MASK) ''Toggle the bit on or oH 

2110 IF (BYTE AND MASK) = THEN 2140 'Test if bit is 

2120 PRINT "Added Publication":PNO;"to the list." 
2130 GOTO 2150 

2140 PRINT "Removed PuDhcation";PNO; "f re* the list," 

2150 LSET BMAP$ = LEFT$(BMAP$,BF«-1» + CHRVBYTE) + NlWXBttW.BPGS+l) 

2160 GOSUB 2450 'Input next publication nuaber 

2170 MEND 

2180 PUT #1,SBCN0 + 1 
2190 RETURN 
2200 ' 

2210 'Print subscribtions for one subscriber 
2220 ' 

2230 IF BMAP$ s STRING*! 10. 0) THEN PRINT: PRINT "No subscribtions. 5 : RETURN 

2240 PRINT "Subscriptions to the folowing publication numbers:" 

2250 COUNT = 

2260 FOR I = 1 TO 10 

2270 BYTE = ASC(MID*(BMAP$,I,1,'> 

2280 FOR J s TO 7 'Examen all 8 bits for each byte 

2290 IF (BYTE AND 2\0 = THEN 2330 Test bit J for 

2300 PRINT USING " ##";(I-1)*8 *■ i * lj 'Print publication 

2310 COUNT = COUNT + 1 

2320 IF COUNT MOD 20 = THEN FAINT 

2330 NEXT j 

2340 NEXT I 

2350 PRINT : PRINT "Printed";COUNT; "subscribtions. 
2360 RETURN 

2370 ' 

2380 'Input publication number. 

2390 •" BYTE is set to the binary value of the byte in BMAP$ containing 

2400 ' the corresponding bit of tne publication. 

2410 ' MASK is set to the Dinary value of the bit in question. 



Using Boolean Operators 309 



(Tutorial 16-2: Continued) 

2420 ' MASK takes on values 1. 2. 4, 8, 16, 32. 64. or 128 
2430 ■ EPOS is the position of BYTE in BMAP$ 
2440 •' 

2450 INPUT "Puolication nusber of to end: ",PNG 
2460 IF PNO >= AND PN0 <= 30 THEN 2490 

2470 PRINT "Invalid number. Enter a number between and 80." 

2480 GOTO 1-450 

2490 IF PNO = THEN 2530 

2500 BPOS = iPNfMAS + 1 'BYTE position in BMAPt 

2510 BYTE = ASC(MID$iBHAP*.BPOS,lu 'BYTE contains the PNO bit 
2520 MASK = 2' ((PNO - 1> MOD 8) 'This is the bit east: 
2530 RETURN 

This program is very similar to the inventory program in Tutorial 
15-1, except for the lines that implement the bit mapping. First of all, 
let's consider line 1520. This line sets the variable BMAP$ (which 
holds the bit map) equal to a string of ten bytes all set to 0's. This 
means there are 80 bits (each bit handles one periodical) set to 0, 
since each byte contains eight bits. The key to the program is in the 
lines 2500 through 2520. 

Line 2500 determines the byte position of the byte that will con- 
tain the code for the periodical to which we are going to subscribe. A 
portion of the BMAP$ string is shown in Figure 16-1. Remember 
that each byte is read from right to left. 

Let's run through these three lines assuming a subscriber is inter- 
ested in the twentieth periodical in the list. BPOS is the byte position 
in BMAP$ of the byte with the periodical; PNO is the periodical 
number (1 to 80). In line 2500, we have 

BPOS = (20-l)\8+l = 19\8+1 = 2+1-3 

Thus, the third byte contains the 20th bit. 

In line 2510, the variable BYTE is the byte in position BPOS. In 
line 2520 the variable MASK has the bit corresponding to the appro- 
priate periodical. 

MASK= 2*((20 - 1) MOD 8) 
= 2 A ((19) MOD 8) 
= 2 A (3) = 2 3 = 8 
= 00001000 2 

We now know that periodical 20 is the fourth bit of the third byte. 
The variables BPOS and MASK can now be used either to set or to 



Byte 1 Byte 2 Byte 3 Byte 4 

1 00000000 | 00000000 | Q0000GQ0 1 OOOOOOQOl ZZZ 
Bits 87654321 16 • • • 9 24 • • • 17 32 • ■ • 25 



Figure 16-1. 

The BMAP$ string 

clear the bit in BMAP$ corresponding to publication number 20. 
MASK is used with the XOR logical operator in line 2100 to toggle 
the PNO bit. Toggle means to switch the value of the bit; that is, to 
set the bit to if it is 1, or set it to 1 if it is 0. This has the effect of 
removing the publication if it was in the list or adding the publication 
if it was not in the list. Note also that since MASK has only one bit 
set, the XOR operator will not affect any of the other bits in BYTE. 
MASK is used again in lines 2110 through 2140 to determine the 
outcome of line 2100 and report the result to the user. BYTE is 
inserted back into BMAP$ in line 2150. 
The program looks like this when run: 

RIM 



There are subscribers on file. 

Choose one of the following functions: 

1 ... Query an existing subscriber. 

2 ... Enter a new subscriber. 

3 ... Edit an existing subscriber. 

4 ... End program/close file. 

Selection number: 2 

SAscriber number: 1 (Push return for 
Name: NEW NAME 
Address line h 
Address line 2: 
Zip code: 

No subscribtions. 

Enter publication numbers to add or delete: 
Publication number or to end: 13 
Added publication 13 to the list. 
Publication number or to end: 33 
Added publication 33 to the list. 
Publication number or to end: 



no change) 

: Mike Smith 
: 12 Ace Street 
: Concord. CA 
: 94554 



More subscribers to enter (Y/N)? N 
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(Tutorial 16-2: Continued) 
There are 1 subscribers on file. 

Choose one of the following functions: 

1 ... Query an existing subscriber. 

2 ... Enter a new subscriber. 

3 ... Edit an existing subscriber. 

4 ... End program/close file. 

Selection nunber: 1 

Enter subscriber number to query: 1 

Subscriber number 1 Name: Mike Smitr, 
Address line 1: 12 Ace Street 
Address line 2: Concord CA 
Zip code: 94554 

Subscriptions to the folowing publication numbers: 
13 33 

Printed 2 subscribtions. 
Press <RETURN> to continue... 

There are 1 subscribers on file. 

Choose one of the following functions: 

1 ... Query an existing subscriber. 

2 ... Enter a new subscriber. 

3 ... Edit an existing subscriber, 

4 ... End program/close file. 



Selection nunber: 4 
Ok 
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EXERCISES 



1. Convert the following binary numbers to decimals: 



2. Convert the binary numbers of the first problem to 
hexadecimal and to octal. 

3. Complete the truth tables for the following: 

a. X Y NOT(X AND Y) 
1 1 

1 
1 



b. X Y NOT(X) OR NOT(Y) 

1 1 
1 
1 


4. Write a program to convert a binary number in the 
range to 255 into decimals. 

5. The memory capacity of a microcomputer is usually 
given in multiples of IK. This figure, IK, is actually 
2 10 bytes. How many bytes of memory, in decimal, is 
this? Write a program to give the actual number of 
bytes of memory, in decimal, for a microcomputer. Do 
this in multiples of 4K, starting with 4K and ending 
with 64K. 

6. Use the program in Tutorial 16-1 to print out memory 
from 4A0 16 to 780 16 . Can you guess what part of 
MBASIC this is? 

7. How will the following line change the output when 
added to the DUMP.C15 program? 



a. 10010001 
6. 11001100 



c. 00001001 

d. 11011111 



155 PRINT SPCUaddr adn &hf)*3); 




Statements: DEF FN 



MBASIC provides you with approximately 40 built-in functions, 
such as the math functions SQR and SIN and the string functions 
MID$, RIGHT$, and so on. But it also provides you with the DEF FN 
statement, which allows you to define your own functions. Recall that 
functions are like small programs inside of MBASIC that make your 
programming task easier. Like the built-in functions, the user- 
defined functions of MBASIC fall into the general areas of math and 
string functions. 

Our first example is a user-defined function to generate random 
numbers. Recall from Chapter 8 that in order to generate random 
numbers between 1 and 10 we used the formula 
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In general, to produce a random number between A and B, we would 
use this formula: 

X = INT(RND*<B-A+1)M 

With the DEF FN statement, we can create our own function 
which uses this formula. We will call our function FNRAND. Before 
we explain how to construct this function, let's look at how our func- 
tion can be used in a program. For example, the line 

PRINT FNRAND ( 1 . 10) 

will print a random number between 1 and 10. Similarly, the 
statement 

LET X = FNRANDU0.2O) 

will assign a random number between 10 and 20 to X. 

Figure 17-1 shows how to construct a function in MBASIC. There 
are three things to notice about this example of defining a function. 
First, the function name can be any legal variable name that starts 
with the letters FN. Second, the parameter list is a list of variables 
used in the definition of the function. In this case, the parameter A is 
the lower bound of the range and B is the upper bound of the range. 
The parameters are separated by commas. Third, the function defini- 
tion is an expression that performs the operation of your function. All 
the variables that appear in the parameter list can be used in the 
function definition. 

Now let's look at a program that uses our defined function. 

100 DEF FNRANUiA,B> = INTiRNB*tB-A+U >*A 

110 PRINT "Randoi nunoers between 1 ana W 

120 FOR 1=1 TO 5 

130 PRINT FNRAND * 1.10;: 

140 NEXT I 

150 PRINT 

160 PRINT "Ranflot numbers between 10 and 20' 

170 FOR 1=1 TO 5 

180 PRINT FNRANDU0.20): 

1*0 NEXT ! 

Rt* 

Randoa nunoers between 1 and 10 
3 4 4 6 1 

Randc* nunbers between 10 and 20 

18 15 14 20 1? 
Ok 
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10 DEF FNRAND(A,B) = INT(RND* ( B-A+ 1)+A, 

^- — »- Function definition 

»- Parameter list 

1 — »• Function name 

Figure 17-1. 

Parts of a user-defined function 



When we use a defined function in a program, we are calling the 
function. In line 130, MBASIC calls the function FNRAND with the 
arguments 1 and 10. When line 130 calls FNRAND, the arguments 1 
and 10 are substituted for the parameters A and B of the function 
definition in line 100. The equation INT(RND*(B-A+1))+A is then 
evaluated as INT(RND*(10— 1+1))+1, which is the proper formula 
for generating a random number between 1 and 10. Similarly, when 
line 180 calls FNRAND, the arguments 10 and 20 are substituted for 
the parameters A and B. The equation is then evaluated as 
INT(RND*(20-10+1))+10, which is the proper formula for gener- 
ating a random number between 10 and 20. 

Once you have written the defined function FNRAND, you can 
generate random numbers in any range simply by specifying the 
range in arguments to the function. You will never have to write out 
the equation for generating random numbers again. 

In Chapter 9 we emphasized the built-in string functions. In this 
chapter we will focus on user-defined string functions. One common 
application of user-defined string functions is providing fancy screen 
output. 



Defining String Functions 

Frequently, programs have elaborate screen displays that provide 
the user with information or that request some input from the user. 
Such a display will have a title at the top of the screen. The title can 
vary in length depending on the display, as can the line on which you 
wish to place the title. 
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Let's develop a user-defined function that will allow us to center a 
title of any length on the screen, in any line we choose. We will call 
our function FNTITLE$. Once you have a definite function like 
FNTITLE$, you will no longer have to count spaces or guess at the 
correct TAB position to center any particular string on a line. For 
example, the line 

PRINT FNT I TLEt 12. "RETURN OF THE JEDI*) 

will center the title RETURN OF THE JEDI on line 2. What 
happens here is that the function FNTITLE$ returns a string that 
contains the proper control characters to center the title on line 2. We 
could use 

100 A* = FNTITLE$<2, "RETURN OF THE ,©1") 
1!0 PRINT A$ 

to produce the same results. 

In order to construct the FNTITLE$ function, we must first 
develop two other functions. First, we will write a function called 
FNCENTER$ to center a message on the current line. As with the 
FNTITLE$ function, we will use FNCENTER$ with a PRINT 
statement. For example, the statement 

PRINT FNCf_NTERt( "Hello there"* 

will center the message Hello there on the current line. Notice that 
FNCENTER$ does not allow you to choose which line to center the 
message on; this is what the function FNTITLE$ will do. 

Look at the DEF FN statement for the function FNCENTER$: 

110 DEF FNCENTERt((«)=SPAiS$((8CHLEN(N$:')N2)+f« 
120 PRINT FNCENTER$( "Hello there") 

Tracing through the function, we notice first that MBASIC sets the 
parameter M$ in line 110 equal to the argument Hello there in line 
120. The message takes up 11 spaces. Therefore, the expression 
(80-LEN(M$))\2 is equal to (80-ll)\2 = 69\2 = 34. The function 
will return SPACE $(34)+"Hello there". (Recall from Chapter 9 that 
SPACE$(34) returns a string of 34 spaces.) Line 120 will then print a 



Defining Your Own Functions 317 



string 45 characters long. The first 34 characters are spaces, and the 
last 11 characters are Hello there. Now run the program: 

Hello there 

Ok 

In this example the centering is for an 80-column screen. If your 
terminal is different, substitute the appropriate value for 80. 

Next let's define a function that will direct the cursor to any posi- 
tion on the screen. We will call this function FNCP$ (the CP is for 
"cursor position"). Again we will use FNCP$ with a PRINT state- 
ment. For example, the statement 

PRINT FNCP$(2.10)s 

will position the cursor on line 2 in column 10. Note that the semi- 
colon suppresses the carriage return so that the cursor actually stays 
at this position. To position RETURN OF THE JEDI at column 10 
of line 2, we could say 

PRINT FNCP$ (2.10): "RETURN OF THE JEDI" 

Now let's look at the DEF FN statement for our function. 

This example is for the Heath/Zenith Z-19 terminal. Consult your 
computer's or terminal's operations manual for the proper format 
and codes for positioning the cursor on your terminal. These instruc- 
tions are usually given in a section on cursor control. 

The parameters L and C designate the line and column at which 
you wish to position the cursor for the next character you want to 
print. The CHR$(27)+"Y" is the cursor lead-in sequence for the Z-19 
terminal. CHR$(27) is the ASCII ESCAPE character. Many termi- 
nals use this character for cursor commands. The manual for your 
terminal will specify which character or characters to use for direct 
cursor positioning. Following the cursor lead-in sequence are the 
characters that specify the line and column. Since CHR$(32) repre- 
sents line 1 and column 1 of our terminal, we must add 31 to L and C 
(for example, CHR$(35)+CHR$(38) corresponds to line 4 column 7). 
Some terminals do not require that you add a number like this, and 
your manual will specify the offset to use, if any. 
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Here is an example of how FNCP$ is used: 

i 00 DEF FNCP*(l, C )=CHR«<27)+ " Y " +CHR* (31+1 ) +CHR* (3i+C( 
110 PRINT FNCPt(3, 20); "HELLO" 

RUN 

HELLO 

Ok 

The output from line 110 appears on the screen in line 3, column 20. 

To get a better idea of how defined functions work, try running 
this next program: 

100 DEF FNRAND(A,B; = INTlfilffi*(B-A+lj>+* 

HO DEF nm(L.C)=CHM(27)+*Y k +CHR$(31+L)+CHR$(31+CJ 

120 FOR L=l TO 50 

130 PRINT FNCP*(FNRANDU.24). FNRAMK 1 . 70) .1 ? "HELLO" 
140 NEXT L 

When this program is run, it will print HELLO 50 times, each at 
a random cursor position. There are two things you should notice 
about this example. First, we have used FNRAND(1,24) and 
FNRAND(1,70) for the line and column number arguments of FNCP$. 
FNRAND(1,24) selects a random line number from 1 to 24, and 
FNRAND(1,70) selects a random column position between 1 and 70. 
Second, notice that line 120 uses the variable L for the FOR/NEXT 
loop. This variable has no effect on the variable L used in the 
parameter list of FNCP$. The variables in the parameter list of a 
DEF FN statement are local to the DEF FN statement. In other 
words, variables in the parameter list of a DEF FN statement are 
not related to other variables of the same name in the program. 

Using Functions Within Functions 

You can incorporate the previously defined functions into the 
definition of a new function. We will illustrate this with the DEF FN 
statement for the FNTITLE$ function described earlier. FNTITLE$ 
first positions the cursor at the beginning of the appropriate line with 
the FNCP$ function and then centers the line with FNCENTER$. 

100 DEF FNCP$(L.C)=CHR*(27)+"Y"+CHR$(31+L)+CH»(31+0 
110 DEF FNCENTER»(H»)=SPACE$( (80-LEN(H») > /2)+H* 
120 DEF FNTITLE$(L,«$)=FNCPt(L,l)+FNCENTER»(«$> 
130 PRINT FNTITLE*(2. "Hello There". 
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If you run this program, the message Hello There will be cen- 
tered on the screen in line 2. 

■as 

Hello There 

Ok 

We will use these functions in the tutorials section of this chapter 
and in subsequent chapters. 



Defining Boolean Functions 

The Boolean operators we discussed in the last chapter lend them- 
selves very nicely to many applications using the DEF FN statement. 
Let's consider three examples that all accomplish the same thing: 
namely, determining whether a number is even. 

EVEN NUMBERS: EXAMPLE ONE 

The most common method of checking for an even number in a 
program is to use an IF/THEN statement either in the form 

IF X/2 = INTa/2.! THEN ... 
or in the form 
IF X/2 - X\2 THEN ... 

An example of this is 

10 FOR X = 1 TO 5 

20 IF X/2 = X\2 THEN PRINT X: 

30 NEXT a 



RUN 

2 * 
Ok 

When X equals 5, 5/2 equals 2.5 and 5\2 equals 2. Since 2.5 is not 
equal to 2, the program determines that the number 5 is not even. 
For any even number, the results would be equal. For example, 4/2 
and 4\2 both equal 2. 
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EVEN NUMBERS: EXAMPLE TWO 

The same method can be used with a DEF FN statement: 

SO DEF FNEVDKN.' = i.N/2=N\2> 
20 FOR K=l TO 5 

30 IF FNEVENU) THEN F"RINT > 
40 NEXT X 

The FNEVEN function returns the Boolean TRUE or FALSE 
value for the comparison (N/2=N\2). This program produces the 
same result as the preceding example. 



2 4 
Ok 



EVEN NUMBERS: EXAMPLE THREE 

Another method of defining FNEVEN is to use the logical AND 
operator. We have incorporated this function into the following 
program: 

16 DEF FNEVEN'. N> = UN AND i)=0) 
20 FOR X = 1 TO 5 
30 IF FNEVEN(X) THEN PRINT X; 
40 NEXT X 



RUN 

2 4 
0k 

This function relies on the fact that if the first (rightmost) bit of 
the binary representation of a number is 1, then the number is odd, 
and if the first bit is 0, the number is even. The expression (N AND 
1) will return if the first bit is and will return 1 if the first bit is 
1. Therefore, the comparison ((N AND 1)=0) will be true if the first 
bit is and false if the first bit is 1. 

This method is not as obvious as the previous one, so why use it? 
Speed is the answer. Whenever you are writing a program that you 
expect to be used by someone else, a prime consideration should be 
how quickly a program performs its operations. The two divisions 
required in the previous examples necessitate many more machine 
cycles than does the use of the logical operator AND. For a single 
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statement, this time difference would not be noticed. But if the pro- 
gram were performing several operations before returning to the 
user, the added time factor might make AND worth using. 

Functions Without Parameters 

Next we will write a DEF FN statement that will stop output to 
the printer at any time you press either X or x. For programs that 
produce long printer listings, this function is a convenience, since it 
means that you do not have to wait for the entire printout to be com- 
pleted or to break the program by pressing CTRL-C if you want to stop 
the output. 

Recall from Chapter 9 that the INKEY$ function will return the 
last character typed at the terminal or a null string if no character 
has been typed. We can check whether the letters X or x have been 
typed at the keyboard by comparing INKEY$ to these characters. In 
particular, if at any point in the program INKEY$ is a character in 
the string "Xx", we know that the user has typed X or x. The pro- 
gram can then take the appropriate action. 

At first, we might try to use the INSTR function to see if 
INKEY$ is the string "Xx" as follows: 

IF INSTR' 'Xx' . INKEYt) > THEN ... 

However, if you use this statement in a program, you will find that it 
will not work properly. The reason is that when no key has been 
pressed at the keyboard, INKEY$ is a null string. In this case, the 
INSTR function will return 1 because the string to search for, 
INKEY$, is a null string. The program will therefore stop printing 
whether or not an X or x has been typed. 

To correct this problem, we might try the following: 

IF INSTRf'Xx", INKEYi) > 1 THEM ... 

We have solved the problem of the printer stopping when no key has 
been pressed. Now, however, we find that the printer will stop if we 
press x but will not stop when we press X. This is because X is in the 
first position of the string "Xx". We need the INSTR function to 
return a value greater than 1 when X is pressed. To fix this problem 
we can simply insert a space before the Xx. 

IF INSTRi" Xx". INKEYi) > ! THEN ... 
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We have put X and x in the second and third positions of the 
string " Xx". Now, when X is pressed, INSTR will return 2. The only 
time INSTRf Xx", INKEY$) will be greater than 1 is when the 
letter X or x has been pressed. 

In the next program we have incorporated INSTR and INKEY$ 
into the defined function FNSTOPPRT%. 

10 DEFSNG A-Z 

20 WIDTH LPRINT 42 

30 DEF FNSTOPPRTX = (INSTRC XxMNKEY*) > 1) 
40 JX=1 

50 WHILE JZ <= 450 AND NOT FNST0PPRT1 
60 LPRINT USING °tt##.tf;J7.: 
70 J7. = JX + I 
80 MEND 

90 WIDTH LPRINT 80 
100 END 

After leaving the WHILE/WEND loop, your program can take 
action to stop the printer or to offer whatever options you wish. 
Notice that FNSTOPPRT% has no parameters. FNSTOPPRT% 
simply checks to see if an appropriate key has been pressed. If you 
wanted to pass the " Xx" as a parameter, you would have to make the 
FNSTOPPRT% function check for characters other than X and x. 
The definition would look like this: 

DEF FNST0PPRT-/.(C$) = (INSTR(C$. INKEYt) > IT 

Passing " Xx" would check for X and x as in the previous exam- 
ple. However, you could set C$ equal to " Qq" or any other letters you 
wish. 

The percent sign (%) at the end of FNSTOPPRT% means the func- 
tion returns an integer. For speed and memory considerations, it is a 
good idea to declare as integer all functions and variables that will 
take on Boolean TRUE or FALSE values (-1 or 0). 

As you write programs and make use of the DEF FN command, 
save your definitions in a special program. You will soon have a 
library of these functions that you can use in future programs. All 
you will have to do is merge this library with your current applica- 
tion and delete those that do not apply. A great deal of programming 
time can be saved in this manner. 
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Defining Numeric Functions 

If the type of programming you do does not deal with mathemati- 
cal formulas, you may want to skip this section. Of course, it is not 
our intention to derive any of the mathematics used in this section, 
but rather to illustrate how to use the DEF FN statement with 
mathematical equations. 

Let's consider a program using DEF FN to find the Y values for a 
quadratic function. The formula for the general quadratic equation is 

Y = AX 2 + BX + C 

Our program will input the coefficients A, B, and C through the 
keyboard with the INPUT statement. The program will then use the 
defined function FNQUAD to determine the values of Y. 

The DEF FN statement is 

DEF FNQUAD(X) = A*X*2 + B*X + C 

Notice that X is the only variable in the parameter list. A, B, and 
C are used in the function definition but are not listed in the parame- 
ter list. If a variable in the function definition is not listed in the 
parameter list, its value will be whatever value you assign in the 
program. 

To see how this works, enter and run the following: 
100 DEF FNQUAD(X) = A*X 4 2 + B*X + C 

110 INPUT "Enter the coefficients for X*2. X and the constant C: ",A.B,C 
120 FOR Z = -5 TO 5 

130 PRINT USING "X = ## Y = #tt.t#";Z,FNQUAD(Z) 
140 NEXT Z 
150 END 

Enter the coefficients for 1*2. X and the constant C: 2,1.-3 



X = 


-5 


Y = 


42.00 


X s 


-4 


Y = 


25.00 


X = 


-3 


Y = 


12.00 


X = 




Y = 


3.<Xi 


X = 


-1 


Y = 


-2.00 


i = 





V = 


-3.00 


x = 


1 


Y = 


0.00 


X = 


2 


Y = 


7.00 


X = 


3 


Y = 


18.00 


X = 


4 


t = 


33.00 


X = 


5 


V = 


52.00 



0k 
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For our next example, let's define a function that will help us 
print the SIN, COS, and TAN for angles from to 45 with incre- 
ments of 1 degree. Because MBASIC only accepts angles in radian 
measure, we will have to convert from degrees to radians. 

Our function, FNRAD, which converts degrees to radians, can be 
written as 

DEF FNRAD (A) = (A/1S0)*3. 14159 

Incorporating this into the program we have 



10 DEF FNRAD (A) = (A/180>*3. 14159 
20 FOR J = 1 TO 45 

30 PRINT USING "SIN(##) = #.#»*## C0S<##) = #.«#### TAN(##) = t.tttttt'; 

J,SIN(FNRAD(J)),J,MS<FNRAD(J)),J,TANtFltfADU)) 

40 NEXT J 



RUN 



SIN * I) 




0.017452 COSt 1) 




0.999848 


TANt 1) 




0.017455 


SINt 2) 




0.034395 COSi 2) 




0.999391 


TAN( 2) 




0. 034921 


SIN( 3) 




0.052336 COS( 3) 




0.998630 


TANt 3) 




0.052408 


SINt 4; 




0.069756 COSt 4) 




0.997564 


TAN- 4.i 




0.06992; 


SINt 5.i 




0.087156 COSi 5) 




0.996195 


TANt 5) 




0.087489 


SIN( 6) 




0.104528 C0S( 6) 




0.994522 


TANt 6) 




0. 1(6104 


SINt 7) 




0. 121869 COSt 7) 




0.992546 


TANi 7) 




0. 122784 


SINi 8) 




0.139173 CCS! 8) 




0.990268 


TANt 8) 




0. 140541 


SIN( 9) 




0.156434 COSt 9) 




0.987688 


TANi 9) 




0. 158384 


SINUO) 




0.173648 COSt lO.i 




0.984808 


TANt 10) 




0. 176327 


SIN(ll) 




0.190809 COSt 11) 




0.981627 


TANt 11) 




0. 194380 


SIM43J 




0.681998 C0S(43) 




0.731354 


TAN(43) 




0.932514 


SIN(44) 




0.694658 COS (44) 




0.719340 


TAN (44) 




0.965687 


SIN (45) 




0.707106 CQS(45) 




0.707107 


TAN(45) 




0.999999 



Ok 

The advantages of using DEF FN increase as the number of calls 
to it increases. This not only requires less programming, but also 
allows a function that is changed in one line to affect the entire 
program. 
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TUTORIALS 



Tutorial 17-1: Screen Mask 

Normally when you work with a files program, you repeatedly 
enter large quantities of similar data. For example, you might enter 
many employees' names, social security numbers, phone numbers, 
street addresses, and so on. Entering this type of data is often easier 
for the computer operator if a screen mask is provided. An illustra- 
tion of a screen mask is shown in Figure 17-2. 

This screen mask lists the data items to be entered, along with a 
set of brackets for filling in each item. The brackets indicate the 
length of the fields. 

Some of the properties of our screen masks are that the cursor 
moves only within the field; that you can move the cursor backward 
in the field with the BACKSPACE key; that characters can be deleted 
within the field; that the cursor can be moved easily to the next or to 
the previous field; and that pressing the ESCAPE key causes the cur- 
sor to return to the first field in the mask. 

Screen masks can, of course, be more elaborate. In this example, 
however, we will program the functions just mentioned. Note that the 
cursor position codes used in this program are for the Z-19 terminal. 
Check the manual for your terminal to see if there are differences, 
and modify the program if there are. 



ENTER EMPLOYEE NUMBER OR '00' FOR NEW EMPLOYEE 
Employee number [ ] 

Employee name [ ] S.S. number [ ] 

Employee title [ ] Phone number [ ] 

Street address [ ] 

City/state [ ] ZIP code [ ] 



Figure 17-2. 

Example of a screen mask 
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10 REM - 
20 REM - 
30 REM - 



-=*SCRMASK.C17*=- 
Screen mask dewnstrahon 

2/15/83 



40 REM - 
1000 

1010 Screen iiksk data 
1020 

1030 DATA 7 

1040 DATA 5, 1,16, 25, "Employee name' 
1050 DATA 5,45,58, 11, "S.S. Number' 
1060 DATA 6,1, 16,25, "Empolyee title" 
1070 DATA 6,45,58, 15. "Phone number" 
1080 DATA 7,1, 16,25, "Street address" 
1090 DATA 8, 1,16,25, "City/State" 
1100 DATA 8,45,58,9, "Zip code" 
1110 ' 

1120 Program initialization 

1130 •' 

1140 CLEAR .,500 
1150 DEFINT A-2 
1160 WIDTH 255 

1170 DEF FNCP*(L,C) = ESC*+"Y"+CHR*(L+31)+CHR$(C+31) 
1180 DEF FNCL$(L) = FNCP*(L.l) + ESC* + "1" 'Clear line 
1190 DEF FNMSXMt) = FNCL*(1)+FNCP*(1, (80-LEN(M*))\2j+M* 
1200 DEF FNBKT*<L,C,M*} = FNCP$(L,C)+"["+M$+"]* 
1210 DEF FNINB0UND(X,L,H) = (X >= L AND X <= H; 
1220 ' 

1230 ESC* = CHR*<27> Escape character 
1240 CLS* = ESC$+"E" Clear screen code 
1250 BELL* = CHR*(7i 

1260 BS* = CHR*(8i Back space code 

1270 REM - Input command string CMD1 consists of all special function 
1280 REM - characters for input editing: 

1290 REM - 1) Backspace, 2) Delete, 3) Back-up CIO, 4) <RETURN>, 5) Escape 
1300 CMD* = CHR*(8) + CHR*(127) + CHRt(ll) + CHR*(13) + ESC* 
1310 ' 

1320 Initialize screen and variables 
1330 ' 

1340 PRINT as* 

1350 READ N0FLDS 

1360 N0EMP = : MAXEMP = 2v 

1370 DIM FL ( NOFLDS ) , FC ( NOP LDS ) , FLN ( NOFLDS ) , F* i MAXEMP , NOFLDS) 

1380 FOR I = 1 TO NOFLDS 

1390 READ FL(I),C,FC(I),FLN(I),FD* 

1400 A$ = SPACE*(FLN(D) 

1410 PRINT FNCP*(FL(I),C);FD*;FNBKT*(FL(I),FC(I),A*) 

1420 NEXT I 

1430 

1440 'Begin main prograa 
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(Tutorial 17-1: Continued) 
1450 ' 

1460 PRINT FNNStf "ENTER EMPOLYEE NUMBER OR '00 FOR NEW ENTRY") 

1470 PRINT FNCL$(3); "Employee number ": 

1480 A$=" " : L = 3 : C = 17 

1490 G0SLIB 1900 Field input At 

1500 IF RC = -1 THEN END Program ends here 

1510 EMPNO = VAL(A$i 

1520 IF FN I NBOLWD( EMPNO, 0, NOEMP) THEN 1550 

1530 PRINT FNMStC'INVALID ENTRY. THERE ARE ONLY" +STRt (NOEMP) +" EMPLOYEES") 
1540 GOTO 1490 

1550 IF EMPNO > THEN 1630 Check for new employee 
1560 PRINT FNMStC** NEW EMPLOYEE **".< 
1570 EMPNO = NOEMP + 1 

1580 FOR FLU = 1 TO NOFLBS Clear fields for new employee 

1590 Ft(EMPNO,FLD) = SPACES (FLN(FLD). > 

1600 NEXT FLD 

1610 RSET At = STR$(EMPN0) 

1620 PRINT FNBKTt(L.C.Atj 

1630 GOSUB 1700 Edit fields 

1640 IF RC = -1 THEN 1460 Check for Da«-up 

1650 IF EMPNO > NOEMP THEN NOEMP = EMPNO Check if Emp was new eMr* 

1660 GOTO 1460 
1670 ' 

168i> Edit fields for employee EMPNO. 

1690 

1700 GOSUB 1830 Print fields 

1710 FLD = 1 

1720 WHILE FNINB0UND(FLD,1.N0FLDSj 

1730 At = Ft (EMPNO, FLD > 

1740 L = FL(FLD) : C = FC(FLD) 

1750 GOSUB 1900 Field input At 

1760 LSET Ft(EMPNO,FLD)=At 

1770 FLD = FLD + RC Return code (RC) determines next field to edit 
1780 WEND 
1790 RETURN 
1800 

1810 Print fields 
1820 

1830 FOR FLD = 1 TO NOFLBS 

1840 PRINT FNBKTt(FLi.FLD) ,FC(FLD) , Ft (EMPNO, FLD) ) 
1850 NEXT FLD 
1860 RETURN 

1870 

1880 Input routine 
1890 

1900 PRINT FNBKTt(L,C,Ati;FNCPt(L,C+l); 
1910 i = 1 Index position in At 

1920 CHt = INPUTtU) 

1930 ON INSTR(CMDt.CHt) GOTO 1980,2000,2030, 2050. 207C- 
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(Tutorial 17-1: Continued) 

1940 IF CH$ < " " THEN PRINT BELL$: : GOTO 1920 No control chars. 
1950 MID*(A$,I,1) = CH$ : PRINT CH»: 

I960 IF 1 < LEN(A$) THEN 1=1+1 ELSE PRINT BS*; Check bounds 
1970 GOTO 1920 

1980 IF I > I THEN 1=1- 1:PRINT CH$; Backspace char, trap 

1990 GOTO 1920 

2000 HID»(A»,Ij=flID$(A*,I+l)+" " Delete char, trap 

2010 PRINT MID$(At,I);FNCP*(L,OI); 
2020 GOTO 1920 

2030 RC = -1 Backup char, trap 

2040 RETURN 

2050 RC = 1 <RETURN> char, trap 

2060 RETURN 

2070 RC = NOFLDS Escape char, trap 
2080 RETURN 

Now let's go through the program and consider the main points. 
Line 1030 specifies the number of fields that will be displayed. In the 
remaining data statements (lines 1040-1100), each of the seven fields 
is described. Each of these data statements contains the following: 
the line that the field will be on, the column position for the field 
title, the beginning column of the bracketed field, the length of the 
field, and the title of the field. Encoding the screen mask in data 
statements like this makes it very easy to change the format of the 
screen mask. For instance, you can change the line and column posi- 
tions for any field simply by changing the appropriate data state- 
ment. You can also easily add more fields by changing line 1030 and 
adding another data statement with the information on the new field. 

Lines 1170 through 1210 contain the user-defined function state- 
ments that will be used in this program. You may need to change the 
first two DEF FN statements for your terminal. You have seen 
FNCP$ earlier in the chapter. FNCL$ returns a string that, when 
printed, clears a line. This may also be referred to in your terminal's 
manual as clear line or clear to end of line. Line 1240 defines the 
character sequence to clear the screen. This sequence may also be 
different on your terminal. 

The function FNMS$ centers a message on line 1. This function is 
similar to the FNTITLE$ function introduced earlier. The function 
FNBKT$ in line 1200 positions the brackets for the field and inserts 
the data when required. In line 1210, the function INBOUND returns 
TRUE or FALSE if the value of X is between the low and high 
values indicated by L and H. 



Defining Your Own Functions 329 

Line 1300 defines the user commands that are implemented in 
this program. The definition of each is contained in the REMARK 
statements in line 1290. CMD$ defines which keys will be used for 
each of the five commands. The FOR/NEXT loop in lines 1380 
through 1420 displays the screen mask with empty fields. Notice the 
use in line 1520 of the function INBOUND to check to see if the 
employee number is within the legitimate range (between and the 
number of employees entered). The loop in lines 1550 through 1620 
clears the brackets of old data in preparation for entering the infor- 
mation on a new employee. 

In lines 1630 through 1870, notice the use of nested GOSUB com- 
mands. Line 1630 sends the program to 1700, which in turn sends it 
to 1830. The RETURN in 1860 sends the program back to 1710, and 
the RETURN at 1790 returns the program to 1640. 

The last section of the program, lines 1900 through 2080, is the 
section that interprets the command string defined in line 1300. In 
line 1920, a character is input and held in the variable CH$. In line 
1930, the program transfers to the appropriate subroutine, which 
interprets one of the five commands of line 1300. For example, when 
you press BACKSPACE (CTRL-H), line 1930 will send you to line 1980. At 
line 1980 the program checks to make sure that you do not backspace 
out of the brackets. Then the program goes back to line 1920 for more 
input. 

When you run the program, it first places the mask on the screen 
with the cursor in the first field, Employee number. Press RETURN 
to add a new employee and a 1 will be placed in the field, letting you 
know that the new employee number is number 1. The cursor will 
then automatically move to the beginning of the next field. Enter the 
data requested and press RETURN when you are finished. When 
RETURN is pressed for the last field, the cursor returns to the 
employee number field. You may now enter 1 to review the data pre- 
viously entered, or press RETURN to enter data for a new employee. 

At any time during data entry, you may use the DELETE or 
BACKSPACE keys. If your keyboard is missing these keys, use what- 
ever control codes you want to define them and place them in line 
1300. When CTRL-K is pressed, the cursor moves directly to the 
beginning of the previous field. The only way to end the program is to 
press CTRL-K when the cursor is in the first field. Pressing ESCAPE at 
any time in the lower portion of the screen moves the cursor to the 
first field. This program does not use files, and therefore each time 
the program is run, new data must be entered. 
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EXERCISES 



1. Write a DEF FN statement that will find the value of t 
in the following equations: 

a. t = P(l + r) n 

(P, r, and n are all parameters.) 

b. t = AX 3 + BX 2 + C 

(Enter A, B, and C as variables using INPUT, 
and X as a parameter.) 

2. Write a defined function similar to the STR$ function 
that always returns a four-place number in the range 
to 9999. For example, 34 would be converted to 0034. 

3. Modify the STOPPRT% function so that, after stopping, 
the program will continue if C or c is pressed and will 
terminate if Q or q is pressed. 

4. Write a defined function FNBIT(BYTE,BITNO) to test 
a bit, where BYTE is a byte value in the range to 255 
and BITNO is a bit number in the range to 7. The 
function should return the value 1 or of the bit in posi- 
tion BITNO in BYTE. 



III. 
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Programming 
With Software Tools 



Once you become serious about programming, you will want to 
avail yourself of several commercial programs that can greatly 
increase your productivity. Among the most useful are a word pro- 
cessor, a cross-referencing program, a file-access routine, and a com- 
pacting program. First let's consider the word processor. 

Editing BASIC Programs with 
A Word Processor 

At this point, you have had many opportunities to use MBASIC's 
excellent line editor. Frequently, however, the global editing features 
of a word processor make it far superior to MBASIC's editor for 
many of the editing tasks you need to perform when you are working 
with longer programs. We use WordStar (from MicroPro Interna- 
tional) for this purpose, but there are now many excellent word pro- 
cessors on the market, and most of them (though not all) are capable 
of being used as editors for MBASIC programs. 



333 



334 The MBASIC Handbook 



If you do not yet have a word processor and you are in the market 
for one, you should be sure that the word processor you purchase can 
be used to write MBASIC programs as well as letters and other doc- 
uments. Features such as right justification and paragraph reform- 
ing are necessary for writing documents such as letters, but these 
same features can have disastrous effects on MBASIC programs. For 
example, most word processors will insert control characters into the 
text wherever you use features such as paragraph reforming. A word 
processor suitable for writing MBASIC programs, however, will 
allow you to enter text into the computer without inserting control 
characters in the text. For instance, WordStar's nondocument mode 
can be used to edit MBASIC programs because it does not automati- 
cally reform paragraphs or insert control characters in the text. 
Other highly desirable features in a word processor for editing 
MBASIC programs are global search, find-and-replace, block move, 
and block delete. 

A word processor is particularly useful for longer programs 
because it allows you to make corrections in spelling or other typo- 
graphical errors and thus can greatly speed up the initial entry of a 
program. A word processor can also be used to modify programs 
written for other versions of BASIC so that they will run on your 
computer. 

The find-and-replace function of a word processor is an especially 
useful tool for performing this conversion. Suppose, for example, that 
you wish to convert a program written in Radio Shack's version of 
BASIC so that the program can run in MBASIC on your computer 
and terminal. Since Radio Shack uses the CLS command for clearing 
the screen and MBASIC does not have this command, you could use 
the find-and-replace feature of a word processor to change all the 
CLS commands to PRINT CLS$. Then at the beginning of the pro- 
gram, you would assign CLS$ to whatever control codes are required 
to clear the screen. 

The find-and-replace feature is also helpful in the process of 
extracting modules from an existing program and moving them 
elsewhere. For example, you might have written a very nice quick- 
sort routine for one program that you later want to use in another. 
You can remove this portion of the program, save it to a disk, and 
combine it with your new program. Then, with a find-and-replace 
command, you can quickly change the variables so that they satisfy 
the requirements of your new program. 
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Using a Cross-Reference Program 

A cross-reference program produces an alphabetical list of the 
keywords, variables, numeric constants, and string constants used in 
a program, along with the line number for each. The primary pur- 
pose of using a cross-reference program is to obtain a list of all the 
variables used in your program. The line numbers listed in the cross- 
reference tell you where each variable is used. 

Figure 18-1 is an example of the output from the cross-reference 
program PMAP from Software House. The program used for this 
example is DUMP.C16 from Chapter 16. 

A cross-reference is a very powerful debugging tool to help you 
when problems arise in your program. For instance, it is easy to tell 
if you misspelled a variable name by looking at the cross-reference. A 
secondary use is in the conversion of a program from one BASIC to 
another. For instance, a cross-reference listing will help you in 
determining the compatibility of a program written in MBASIC with 
one written in another BASIC, such as Apple or Altair. 

A Program to Index Files 

One of the common problems of working with large files is that of 
sorting and searching. The sorting routines described in this book, 
bubble sort and quicksort, are very useful, but each has its limita- 
tions. Bubble sort is useful as long as the number of items in the list 
is relatively small— say, less than 50. Quicksort is very fast with sev- 
eral hundred items in a file; but if your file has several thousand 
items, the sorting time required becomes too great to make quicksort 
an efficient programming tool. The binary search described in Chap- 
ter 12 is much faster than a linear search, but requires the list to be 
sorted after any additions to the file. 

When there are thousands of records in a file, another method of 
sorting and searching a file becomes necessary. One such method is 
the b-tree file-access routines. These routines can find any one of 
10,000 records on a floppy disk in around two to three seconds. 

Micro B+ from Faircom is a commercial program that you can 
incorporate into an MBASIC program. The Micro B+ program does 
not actually rearrange your files in any particular order. What it does 
is build key files that establish pointers to the various records in your 
file. For example, if you have a file that contains names, addresses, 



336 The MBASIC Handbook 



DUMP.BAS 

WORD LINES CONTAINING WORD 

Variable Names 
A 100 

A DDR 110 140 150 160 160 200 200 250 250 



CH 


210 


220 


220 220 


I 


160 


170 


180 200 210 230 


LAST 


120 


140 




Z 


100 






Commands, Statements, and Functions 


V_ 1 1 IV <p 










1 AA 






JI1L.&JI1 


OO A 






TjIN U 








r UK 


lbO 


OA A 
ZOO 




HEX$ 


I iJKJ 


1 70 




IF 


220 






INPUT 


110 


120 




NEXT 


180 


230 




OR 


160 


200 


220 250 


PEEK 


170 


210 




PRINT 


130 


150 


170 190 220 220 240 
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telephone numbers, and occupations, you can enter the data in any 
order you wish. As you enter the data, the Micro B+ program can 
build a key on names alphabetically, on ZIP codes, on telephone 
number area codes, or on any other basis that may be useful to you. 

After you enter data into the file, you can search the file for any of 
the keys you have established with the Micro B+ program. For 
example, if you had established a key for telephone number area 
codes, you could quickly search the file for each record associated 
with a particular area code. If you have a key on names, you can 
produce an alphabetical list by reading the name keys sequentially. 
What is more, each time you add a new record to the file, all of the 
keys associated with that record are added to the key files, with the 
result that you never have to actually sort the file. 

Using a Compacting Program 

The last tool we will discuss is a compacting program. This pro- 
gram removes all unnecessary material from another program, such 
as remark statements and extra spaces, leaving only the code that is 
essential to run the program. 

There are two purposes for compacting a program. One is to save 
memory space. Obviously, after compacting larger programs, there is 
more free space in the computer's memory for data. The second pur- 
pose is to increase the speed of the program. A compacted program 
with all the extraneous material removed runs faster than an uncom- 
pacted program. Note, however, that it is a good idea to use the orig- 
inal program as a guide for all editing and debugging even though 
you use the compacted program for the actual runs. 

Here is an example of a compacting program: 

REM - COMPACTED: 3/25/83 

10 REM =- -=*CQMPACT*=- 

20 REM =- Ascii Foreat Program Conpacter 

30 REM =- ver. 1.0 03/13/82 

40 REM =- 

HMO DEf INT A-Z 

1030 WIDTH 80 : WIDTH LPRINT 80 

1040 ON ERROR GOTO 3360 

1050 PRINTLINE INPUT "Today's date? *,ft>TEt 

1060 LINE INPUT "Source program name to compact? ";SRCt 

10/0 IF INSTR'.SfO, V) = THEN 11 H> 

1080 IF RIGHT»iSRC$.4> = ".SRC* THEN 110ft 

1090 PRINT "File naae must end in '.SRC''" : GOTO 1060 

1100 GOTO 1120 
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1110 SRC* = SRC:$ + ".SRC" 

1120 OBJ* = LEFT*(SRC*.INSTR(SRCt. ".">) + "BAS" 

1140 OPEN " I'M, SRC* 

1150 OPEN "0\2,0BJ* 

1155 LINE INPUT "Do you want a printer listing (Y/N)? ";PRT$ 

1160 QUOTE* = CHRK34) 

1170 TAB* = CHR*<9> 

1180 WHITE* = TAB**" " 

1190 SRCCNT! = 

1200 OBJCNT! = 

1210 PRINT : PRINT : PRINT "--COMPACTING PROGRAM—" : PRINT 

1220 SRCLNEt = "0 REM -" + STRING* (3. TAB*. + "COMPACTED: " + DATE* 

1230 LASTLNO* = "-1" 

1240 WHILE NOT EOF(l) 

1250 PRINT SRCLNE* 

1260 IF PRT* = "Y" THEN LPRINT SRCLNE* 
1270 IF SRCLNE* = "" THEN 1340 

1280 IF SRCLNE* < " " OR SRCLNE* > CHR*(126) THEN ERROR 200 
1290 G0SU6 3070 

1300 IF OBJLNE* = "" THEN 1330 

1310 OBJCNT! = OBJCNT I * LENtOBJUC*.' 

1320 PRINT #2, OBJLNE* 

1330 LASTLNEt = LNO* 

1340 LINE INPUT #1, SRCLNE* 

1350 SRCCNT! = SfiCCHT! + LENtSRCLNEt 

1360 WEND 

1370 PRINT : PRINT : PRINT "COMPACT COMPLETED" 

1380 PRINT USING "!**###?, "; SRCCNT!;" Bytes read from " + SRC* 

1390 PRINT USING "»««t"; OBJCNT ! ; * Bytes written to " + OBJ* 

1400 PRINT USING "ttttttl"; SRCCNT! - OBJCNT!;" Bytes recovered" 

1410 PRINT USING '«#.»«"; iSftCOfl! - OBJCNT' i/SRCCNT!»100;" Percest rect*ersd. 

1420 IF PRT* = "¥" THEN LPRINT OIWll); 

1430 CLOSE 

1440 END 

3070 1=1: LENGTH = LEN(SRCLNE*j 

30S0 WHILE INSTRi"0123456789",MIDt(SRCLNE*,I,l.U > AND I <= LENGTH 
3090 1=1+1 
3100 WEND 

3110 IF I > LENGTH THEN ERROR 201 

3120 LNO* = LEFT* (SRCLNE* .1-1) 

3130 IF VAL(LNOt) <= VALi LASTLNO*) THEN ERROR 202 

3140 WHILE INSTR.WHITE*,MIDi(SfiCLN£*.I.I.i) AND I (= LENGTH 

3150 1=1+1 

3160 WEND 

3170 IF I > LENGTH THEN ERROR 203 

3180 IF MID*. SRCLNEt. 1,1.' = THEN 1310 

3190 OBJLNE* = MID* (SRCLNEt, I > 

3200 I = INSTRi OBJLNE*. "") : RPOS = 

3210 WHILE 1 <> RPOS 

3220 QPOS = INSTRi. I. OBJLNE*. QUOTE*) 

3230 IF QPOS > THEN I = INSTRIQPOS, OBJLNE*, " ' " J ELSE RPOS = 1 
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3240 WEND 

3250 IF RPOS = THEN I = LEN(0BJLNE$; ELSE ! = I - i 
3260 WHILE INSTR<HHITE$,MID*<OBJLNE*.Ij) > 6 
3270 I « 1 - 1 
3280 WEND 

3290 0BJLNE$ = LN0$ t " " ♦ LEFT»i.0BJLNE*. I) 
3300 GOTO 3320 
3310 0BJLNE* = " 
3320 RETURN 
3360 CLOSE 

3370 PRINT:PRINT "ERROR: "; 
3380 IF N0T(ERR=52 AND ERL=1140) THEN 3410 
3390 FfilNT "PROGRAM "jSRCij* QOES NOT EXIST.' 
3400 STOF 

3410 IF ERR © 200 THEN 3440 

3420 PRINT "PROGRAM ":SRCt;" NOT SAVED IN ASCII FORMAT, " 
3430 STOP 

3440 IF ERR © 201 THEN 3470 

3450 PRINT "DIRECT STATEMENT IN PaOGRAH,* 

3460 STOP 

3470 IF ERR O 202 THEN 35M 

3480 PRINT "LINE NUMBERS OUT OF SEQUENCE." 

3490 STOF' 

3500 IF ERR <> 203 THEN 3530 
3510 PRINT "BLANK LINE NUMBER." 
3520 STOP 

3530 PRINT-.PRINT "BASIC ERROR":ERR; " IN L1NE":ERL 

EXAMPLE OF COMPACTING A PROGRAM 

Now we will compact the Screen Mask program from Tutorial 
17-1. In order to use the program COMPACT, you must save the pro- 
gram that you wish to compact in the ASCII mode. To do this, use the 
SAVE command with the A option. 

SAVE "SCRMASK.SRC'.A 

The extension .SRC stands for "source." The compacted version of 
program SCRMASK.SRC will be named SCRMASK.BAS. When 
you run COMPACT, it will ask for the date, the name of the program 
to compact, and whether or not you want a listing on the printer. The 
date is placed in a REM statement in the compacted version of the 
program. When COMPACT asks for the program name, enter the 
name without the extension .SRC. As COMPACT runs, the listing of 
your source program is shown on the screen. If you answered yes to 
the question about printer listing, a listing of your source program 
will also be sent to the printer. 
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Today's date? 7/10/83 

Source prograe name to compact"' SOWAS* 

Do you want a printer listing (V/Nj ? N 

—COMPACTING PROGRAM— 

(Listing of SCRftASK.SRC) 

COMPACT COMPLETED 
3419 Bytes read from SCRMASK.SRC 
2651 Bytes written to SCRHASK.BAS 
768 Bytes recovered 
22.46 Percent recovered. 
Ok 

For the average well-documented program, the savings in bytes 
will be between 15% and 20%. If you look ahead in this book to Chap- 
ter 20, you will see the MLEDIT program, which was run through 
COMPACT. Since MLEDIT is a very extensively documented pro- 
gram, the savings turned out to be greater than 50%. 

When writing a program to be compacted, keep in mind that 
remark statements that begin with REM are not removed from the 
program. Only remark statements that begin with a single quotation 
mark (') are removed from the program. For this reason, be sure that 
branching statements never transfer to a line that begins with a sin- 
gle quotation mark. 

SPEED VERSUS FREE SPACE 

The speed of execution of a program is related to the amount of 
available free memory, although it is difficult to give any hard and 
fast rule on this. For applications involving a large number of string 
manipulations, a program that has about 1500 bytes of free memory 
may run 10 to 15 times faster than a program that has only 200 bytes 
of free memory. However, increasing the amount of free space beyond 
this amount — say, from 1500 to 2500 — may make little or no differ- 
ence in the speed of operation. In general, though, you want as much 
free memory as possible when you are working with programs that 
deal with string manipulation or files. 




Statements: COMMON 



A small business is likely to use its computer to operate several 
different MBASIC programs. For example, it may have separate 
programs that handle the mailing list, the inventory, the payroll, and 
the accounts receivable. And the business may use other programs as 
well. 

A convenient way of accessing these various programs is to use a 
menu driver. The diagram in Figure 19-1 illustrates how program 
flow is controlled by a menu driver. The diagram illustrates a simple 
Main Menu that provides an option of three submenus. The Main 
Menu and the Mailing List submenu are shown in Figures 19-2 and 
19-3 as they would actually appear on the screen. 

From the Main Menu you can call up the Mailing List menu, the 
Payroll menu, or END. If you choose either Mailing List or Payroll, 
you are presented with the submenus for these programs. If you 
choose END, you are returned to CP/M. 
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Main Menu 



Submenu (Mailing List) 



Edit Mailing List 
Print Mailing List 
-End 



♦ 

Submenu (Payroll) 



— Edit employee file 
— Pay employees 

-Print checks 
-»* Enter federal tax tables 
-Print federal tax tables 
'-►End 



End 

\ 

CP/M 



Figure 19-1. 

The Main Menu 



— Main Menu — 

MLS = Mailing List — submenu 
PRL = Payroll — submenu 
END = End 

Enter selection [ ] 



Figure 19-2. 

The Main Menu screen 



—Mailing List — 

EML = Edit Mailing List 
PML = Print Mailing List 
END = End 

Enter selection [ ] 



Figure 19-3. 

The Mailing List menu screen 
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From either the Mailing List submenu or the Payroll submenu, 
you may transfer control to any specific program that you are inter- 
ested in. For example, suppose that from the Mailing List submenu, 
you chose to print the Mailing List by entering PML. Once the Mail- 
ing List printing program was completed, the program would auto- 
matically return you to the Mailing List submenu. You could then 
choose to edit the Mailing List, and when you had finished editing, 
you would again return to the submenu. If you chose END, you would 
be returned to the Main Menu. 

The point is that whatever path you choose, you follow that path to 
completion and then return along that same path to your starting 
point, the Main Menu. The only way to leave the menu driver is from 
the Main Menu by making the choice END. 

The menu driver consists of three programs plus a file for each 
menu. The files for the menus are MAIN. MEN for the Main Menu, 
MAIL.MEN for the Mailing List menu, and PAYROLL.MEN for the 
Payroll menu. 

Each menu file contains a title and a list of selections. The exact 
format of these files will be discussed later. 



The first program, INIT, is the system initialization program. 



1 GOTO 10 

2 SAVE "INIT: END 

4 SAVE "INIT", A: END 

6 SAVE "1NIT":R0N 

10 REM - -=*INIT«=- 

20 REM - Srstei initiahzaiic* 

30 REM - ver. 1.0 06/05/83 

40 REM - 

50 COMMON CLI $ , CS$ , HC$ , SF$, SB$ , CL* ,BS$,BELLi,FF$, CC$ . FINK* , MLMK* , DATE$, DRI 

1000 ' 



Initializing the System 



1010 ' 

1020 ' 

1030 •' 

104*:.' ' 

10W CLEAR ,,500 

1060 WIDTH 255 

1070 WIDTH LPRINT 255 

1030 DR*="" 

1090 ESC$=CHF$t.27.i 

1100 CLtt^EStt+'Y" 

1110 CSt=£SC$+ J E" 



*********************************** 



'CP/H data drive 

'Escape char, for Heath codes 

'Cursor lead in 

'Clear screen 



****************** ******** ********* 



'Set stack space for DEF FN statements 
'Turn off width checking 



SYSTEM INITlALIZAION 
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1120 HC*=ESC«+"H n 'Here cursor 

1130 SF$=ESC$+V 'Set forground unverse video* 

1140 SB$=ESC$+V 'Set background inonali 

1150 CU=ESC$+"K" 'Clear line 

1160 BS$=CHR*(8) 'Back space 

1170 6ELL*=CHR*<7) 'CRT bell 

1180 FF*=CHR»(12) 'Printer font feed character 

1190 CO=CHR»<8)*a«»(12)*CHR»<127)*CHM(22) 'Cursor control characters 

1200 PLNK$="MENU .BAS" 'Program linkage string 

1210 MLNKt="MAIN .HEN" 'Menu linkage string 

1220 PRINT 

1230 PRINT "System initialisation:' 
1240 PRINT 

1250 LINE INPUT "Input today's date (up to 8 characters, any style.!: \[iATE$ 
1260 PRINT 

1270 CHAIN LEFT*(PLNK$,12.i 'Chain to nenu proran 



TRANSFERRING VARIABLES BETWEEN PROGRAMS 

[COMMON] 

We will refer to the menu driver and all of the programs listed on 
the submenus as the "system." The system initialization program, 
INIT, assigns a set of common variables. These variables are called 
"common" because all of the programs in the system use them. All 
variables listed in a COMMON statement are transferred to the pro- 
gram chosen from the menu. If you have more common variables 
than will fit on one line, you may use more than one COMMON 
statement to list them all. The COMMON statement is always used in 
conjunction with the CHAIN command, which was introduced in 
Chapter 14. 

The advantage of using the COMMON statement is that important 
variables do not have to be reassigned in every program. For 
instance, the variable CS$ (used to clear the screen) assigned in line 
1110 of INIT contains the control codes to clear the screen on our 
computer. If you want to run your programs on another terminal, you 
will have to change only the INIT program, not each program in the 
system. While in this example not all of the variables are used in 
every program, they are used frequently enough to make it worth- 
while to define them once and carry them to each program with the 
COMMON statement. 

The key part of the menu driver is contained in lines 1200 and 
1210. These are the string variables PLNK$ and MLNK$ (standing 
for "program link" and "menu link"). They are the strings that con- 
tain the names of the programs or menus that are chained in. These 
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strings grow or diminish in length as you move back and forth from 
the Main Menu to the submenus and programs you are using. Just 
how these strings change in length will be shown in the MENU 
program. 

When INIT is run and all the common variables have been 
assigned, line 1270 chains to the MENU program, whose name is 
contained in the variable PLNK$. 

Before we proceed with this menu driver, take a look at the top 
four lines of INIT. Have you ever been involved in debugging a long 
program and, after completing the job, saved it under the wrong 
name? If the name you used was the name of another program on 
your disk, then you would have lost that other program. By using the 
four lines shown at the beginning of INIT in every program you 
write (with the appropriate name, of course), you will eliminate this 
problem. 

For instance, giving the RUN 2 command saves the program, and 
you return to MBASIC. Giving the RUN 4 command saves the pro- 
gram in the ASCII mode, and you return to MBASIC. The ASCII 
mode is necessary if you intend to edit your program with a word 
processor or run the COMPACT program presented in Chapter 18. 
The RUN 6 command saves the program and runs it automatically 
so that you may check for possible bugs. Finally, the purpose of line 
1 is to skip over the SAVE options when you wish to run the program 
in the normal manner. 

Now let's consider the program MENU, which is the main pro- 
gram of this chapter. 

1 GOTO 10 

2 SAVE "MENU'iENt 

4 SAVE "MENU", A: END 

6 SAVE n MBKi":RUN "INIT' 

10 REM - -=*MENU*=- 

20 REM - Menu Driver 

30 REM - 03/21/83 

40 REM - 

50 COMMON CiI$,CS*,HC:$,SF$,SM,CU.BS$,BEIl$,F*,a:t,PU*;t,MUfr:* r [iATE*,DR$ 

1000 ' 

1010 ' ^tfr********^*********************** 
1020 ' * PROGRAM INITIALIZATION * 

103(1 ■' ft***M*********t£**«****S***f»**:**iHt 

1040 ' 

1050 'Initialize screen and variables 

IWi ' 

1070 G0SUB 4660 'Define functions 
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1080 T=(0=0):F=NOTU) Boolean true and false 

1090 PRINT CS$!RHS*("0NE MOMENT PLEASE..,."): PRINT 

1100 RC$ = CHR$(13) + CHR$(11) '2 Return characters 

1110 DIM RC(2) : RCU) = : RC<2) = -1 '2 Return codes 

1120 MAXSIZE = 15 'Maximal number of menu selections 

1130 DIM WMtKAXSIZE) .PNWWXSIZE ».PDS*(»XSI ZEJ 

3000 • 

3020 ' * MAIN PROGRAM 

3030 ' »fT*t*»*t********«t**ft******* 

3040 ' 

3050 MS$=" ! ' 'Clear error message 

3060 WHILE MLNK$'>' 1 * 

3070 G0SLIB 4070 'Print menu 

3080 sat=" " 

3090 PRINT FNMS$(MS$+"ENTER SELECTION"; 

3100 PRINT F!CP$(7+NPGM,1); "Enter selection ": 

3110 L=0:At=SEL*:G0SUB 4400:SEL*=At -'Input selection 

3120 IF RC--1 OR SELt="ENB" THEN 3230 

3130 GCiSUB 4200 'Search for selection 

3140 IF NOT FOUND THEN MS$="INVALID SELECTION, R£-":GOTO ^ 

3150 PRINT FNCF^(4+PGn,34);SF$;PDS*iPG«):SEit 

3160 IF RIGHT$(PNM$(PGM),3)="MEN" THEN 3210 

3170 PRINT FNMS$( "LOADING PROGRAM") 

3180 PLNK$=FNPNM$ (PNM* (PGM) ) +PLNK» 

3190 CHAIN LEFT$(PLNK$,12) 

3200 GOTO 322(i 

3210 MLNK$=FNPNM$ ! F'NMt i PGM) ) +MLNK* 

3220 GOTO 3240 

3230 HLNK»=MI[t$(rlNK$,13) 

3240 MS*="" 

3250 WEND 

3260 PRINT CS$;FNHS$("EXITING"» 
3270 SYSTEM 
4000 ' 

4010 ' 

4020 • * SUBROUTINES » 

4030 ' *-<-^m****«***»*****w-s-*« 
4040 ' 

4050 'Print menu selections 
406u ' 

4070 OPEN M\l.LEFT*<MLNK*,12j 

40:30 INPUT il.NPGM.TTLI ''Read in no. of programs and title 

4090 PRINT CS$;FNCE$'.3,TTL»j:PRINT 
4100 FOR PGH=1 TO NPGM 

4110 INPUT #1,MNC$(PGM),PNM$(PGM),PBS$(PGM) 
4120 PRINT TAB(28);NMC$(PGM);° = ";PDS*(PGM> 
4130 NEXT PGM 

4140 PRINT TAB (28); 'END = End" 
4150 CLOSE 1 
4160 RETURN 
4170 ' 
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4180 'Search for selection 
4190 ' 

4200 PGH=1:F01IND=F 

4210 WHILE PGM<=NPGM AND NOT FOUND 

4220 FOUND = (MNC$(PGM) = SELM 

4230 PGH=PGM+l 

4240 WEND 

4250 PGN=PGH-1 

4260 RETURN 

4270 ' 

4280 'Bracket input 
4290 ' Input: 

4306 ' A$ = Siring to input (Length Bust be set) 

4310 ' L,C = Line and column for input. (L=0 for current position! 

4320 ' CC$ = Cursor command characters 

4330 ■' m = Return characters 

4340 ' RCO = Return codes (one for each char, in RC*i 
4350 ' 

4360 ' Output: 

4370 ' A$ * New input is same length. 

4380 ' RC = Return cede specified in RCO array. 

4:350 ' 

4400 SL=LEN(A$):I=i 

4410 IF DO THEN PRINT FNCPt(L,C.i; 'Position cursor for input 

4420 PRINT "C";A$;"]";STRING$(SL+l,BS$i; 'Print string for input 

4430 CH$=INPUT*U> 'Get one char, of iepui 

4440 ON INSTR(CC$,CH$) GOTO 453(5,4550,4570.4600 'Search for cursor control 
4450 IF INSTR(RC$,CH$) > THEN 4500 'Search for return code 

4460 IF CH$<» » THEN PRINT BELLS; :GOT0 4430 'No control chars. 
4470 MD*(A$,I,1)=CH*:PRINT CH$; 'Char to At and screen 

4430 IF KLEN(A*i THEN 1=1+1 E1SE PRINT BS$; 'Check botsidi 
4490 GOTO 4430 

4500 RC = RC!INSTR(RC«,CH$:m 'Get return code 

4510 PRINT CHR*'l3i: 'Show some response 

4520 RETURN 

4530 IF I>i THEN I=I-1:PRINT BS$; 'Backspace char, trap 

4540 GOTO 4430 

4550 IF KLEN(At) THEN PRINT MD$(A$,I,1);:1=I+1 'Right character 
4560 GOTO 4430 

4570 IHDt(A$.I)=MIDi(A»,I+!i+" " 'Delete char, trap 

4.580 PRINT HID*<A$,I);STRING$(St-I+l,BS$); 
4590 GOTO 4430 

4600 nmw,l)=' "+HID$(At,D 'Insert character 

4610 PRINT MID$(A$,I);STRING»(SL-I+l,eS»>; 
4620 GOTO 4430 
4630 ' 

4640 'Define functions 

4650 ' 

4660 DEFINT A-Z 

4670 ON ERROR GOTO 4770 

4680 DEF FNCP$(L,C)=CLI$+CHR$(L+31)+CM»(Ct3l) 
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4690 DEF FNCE$(L,«$)=FNCP$(L,(80-LEN(l1*).)\2)tM$ 

4700 DEF FNMS$(H$)=HC$+a*+SPACE*( (80-LEN(«t) ) \2}+SF$+M**SB$ 

4710 DEF FlfNH$(P$)=LEFT$(Pt+SPACE$(12.»,12) 

4720 DEF FNBKT$i.L,C,M$> = FNCP$(L,C)+"["+K$+»]* 

4730 RETURN 

4740 ' 

4750 'Error trapping 
4760 ' 

4770 IF N0T(ERR=53 AND (ERL=3190 OR ERL=4070) > THEN CHAIN "ERROR 1 ',, ALL 
4780 MS$=*S0RRY. THAT ONE HASN'T BEEN WRITTEN YET RE-* 
4790 IF RIGHT$«PNM$(PGM),3)="MEN" THEN MLNK$=MIDt(MLNK$, 13) 
ELSE PLNK$=HIW(PLNK$.13) 

4800 CLOSE 
4810 RESUME 3060 

Line 50 occurs in all the programs that can be called in from any 
of the submenus. This line contains all the common variables that 
were assigned in the INIT program. Each program must have this 
COMMON statement so that the common variables will be trans- 
ferred to the other programs chained by the menu driver. 

INITIALIZING SCREEN AND VARIABLES 

Lines 1050 through 1130 of the program take care of dimensioning 
and defining variables that are used only in this program. If the vari- 
ables are to be used in more than one program, they must be 
assigned in the INIT program and carried to other programs with 
the COMMON statement. 

MAIN PROGRAM 

The function of the main program, which occurs in lines 3000 
through 3270, is to control program flow by calling in the subroutines 
at the appropriate time. In lines 3180 and 3210 the names of the pro- 
grams or menus are added to the strings PLNK$ and MLNK$. 
These strings are then carried to the next program through the 
COMMON statement. The next program chained in takes care of 
adding an additional name to these strings if subsequent programs 
are chained. When you transfer back through the programs and 
menus you are working with, these names are removed from the 
PLNK$ and MLNK$ strings. Since the MENU program is always 
the last stop before returning to CP/M, no code is required in the 
program to remove names from PLNK$ or MLNK$. 

For example, to get to the program that edits the Mailing List, the 
MLNK$ and PLNK$ strings are first assigned the names 
MAIN.MEN and MENU.BAS in the program INIT. When you 
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choose the Mailing List submenu from the Main Menu, MAIL.MEN 
is added to MLNK$ and the new menu is printed on the screen. 
Then, when you choose to edit the Mailing List from the Mailing List 
submenu, MAILEDIT.BAS is added to PLNK$ and the program is 
chained in. MLNK$ is then "MAIL.MEN" + "MAIN. MEN" and 
PLNK$ is "MAILEDIT.BAS" + "MENU.BAS". 

When the Edit Mailing List program is finished, it removes its 
name from PLNK$ and chains the next program in the new PLNK$ 
entry, MENU.BAS. The menu program then prints the Mailing 
List menu because MAIL.MEN is first on the MLNK$ list. When 
you select END on the Mailing List menu, the program removes 
MAIL.MEN from MLNK$ and then prints the Main Menu because 
MAIN. MEN is next on the MLNK$ list. Selecting END from the 
Main Menu returns you to CP/M since there are no more menu 
entries in MLNK$. 

MLNK$ and PLNK$ become even more useful when programs 
and submenus become more deeply nested. For example, it is possible 
for a submenu to be a menu of still more submenus. In this case 
MLNK$ would allow you to go back and forth through the menus 
without losing the path. 

Reading and Printing Menu Selections 

Lines 4050 through 4180 open the file for the menu that is to be 
presented on the screen and print it out. The menu is read from a file 
and stored in the arrays MNC$ (which holds the mnemonics), PNM$ 
(which holds the program names), and PDS$ (which holds the pro- 
gram descriptions). 

The subroutine in lines 4180 through 4260 searches the MNC$ 
array for the selection you made from the menu. The subroutine then 
transfers back to the main program, where it determines if another 
menu is to be loaded. 

The input subroutine in lines 4280 through 4620 handles charac- 
ter input and is similar to the character-handling routine in the 
Screen Mask program in Chapter 17. In addition, there is an insert- 
character key (CTRL-v) and a key to move right (CTRL-l). These codes 
are added to the string CC$. The insert-character key allows you to 
insert a character when typing input, and the move-right key moves 
the cursor one character to the right. Lines 1100 and 1110 contain the 
return codes defined for this program. The RETURN key has the 
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return code 0, and the backup key (CTRL-K) has the return code — 1. 

The initializing subroutine (lines 4640 through 4730) contains all 
of the DEF FN statements used in this program. Defined functions 
must be defined in each program where they are to be used; they 
cannot be chained from one program to another with the COMMON 
statement. Error trapping is also turned on in this subroutine. 

The only defined function that is new in this program is 
FNPNM$ in line 4710. It pads the names of the programs used in 
PLNK$ and MLNK$ so that they always contain 12 characters. 

The error trap routine in lines 4770 through 4810 checks for a 
File not found (code 53) error in lines 3190 or 4070. If this is the 
error, line 4780 sets MS$ to the message SORRY, THAT ONE 
HASN'T BEEN WRITTEN YET. If the error was some other 
error, the ERROR program is chained in. This program then prints 
an appropriate error message. More will be said about this program 
at the end of the chapter. 

Although this example has only two choices in the Main Menu, it 
could contain any number of choices without lengthening the pro- 
gram. The only addition needed would be to the Menu files. Each 
Menu file ends with the extension .MEN. Figure 19-4 shows two 
examples of files containing menus used by this program. 

The number at the beginning of each file (in this case 2) repre- 
sents the number of choices from the menu. The following string is 
the menu title that will be displayed. The following lines contain the 



Main Menu file MAIN.MEN 

2,"-M A I N MEN U— " 
"MLS","MAIL.MEN","Mailing List -submenu" 
"PRL","PAYROLL.MEN","Payroll-submenu" 

Mailing List file MAIL.MEN 

2,"— MAILING LIST—" 
"EML","MLEDIT.BAS","Edit Mailing List" 
"PML","MLPRINT.BAS","Print Mailing List" 



Figure 19-4. 

Contents of the MAIN.MEN and MAIL.MEN files 
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mnemonic that you will type in, the name of the program or sub- 
menu, and the description of the program or submenu. The mnemon- 
ics for the title and the description of the mnemonics are printed on 
the screen when you enter that menu. Of course, each menu shows 
END, which is contained in the program, not in the menu files. 

Here is an example of a simple MBASIC program that can be 
used to write this type of menu to the disk. You can also create these 
files with a text editor. 

10 OPEN "0\1."MAIL.NEIT 

20 WRITE tl,2; u -MAIL L 1 S 1 - " 

30 WRITE #1,"EML";"MLEBIT.BAS"; "Edit Mail List" 

40 WRITE #l,"PML";"rtPRINT.BAS":"Print Mail List* 

50 CLOSE 



An error-handling program is very useful when you are dealing 
with a group of programs that act as a unit, like this menu program 
group. If an error occurs that the error trap within the program can- 
not handle, the error-handling program is chained in. It prints 
ERROR on the screen in large letters and tells the operator the name 
of the program in which the error occurred, along with the code 
number for the error and the number of the line in which the error 
occurred. The name of the program is easily obtained from the 
PLNK$ string. 

1 GOTO 10 

2 SAVE "ERROR" ;ENB 

4 SAVE "ERROR", A: END 

6 SAVE "ERROR": RUN" I NIT" 

10 REM =- -=*ERR0fc*=- 

20 REM =- Error Trapping Report 

30 REM =- Ver 1.0 03/12/83 

40 REM =- 

50 COMMON ait, CS$ ,HC», SB . SB* , CL* , BS* , BELL* . f f * , CC* . PINK* . MLNKt .DATE*. OR* 
1000 ' 



1040 '• 

1050 DEFINT Prl 

1060 DEF FNCP*(L,C)=aW+CHR*(L+31)+CHR*(C»31.' 

1070 DEF FNCE*(L.M*:)=FNCP*(L,(30-LEN(M*})\2)tMt 

1030 DEF FNMS* ( Mt i =HC*+CL*+SPACEt ( ( 80-LEN ( Mt ) )/2HSF*+M*+SB* 

1090 FORMAT* = »»>-» Error #*« in line ##### of \ \ «-«<* 



Using an Error-Handling Program 




* PROGRAM INITIALIZATION 
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PRINT CS$;FNCE$(3, "ERROR REPORT") 
PRINT FNMSt( "PLEASE TAKE NOTE OF ERROR CODES'} 



1100 COL = 10 

mo •• 

1120 
1130 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 



* MAIN PROGRAM * 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



FNCP$(4.1) 



TAB(COL) 
TAB(COL) 
TAB(COL) 
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TABI.COL ) ; USING FORMATS; ERR; ERL; PLNKi 



Notice the use of the ALL option in the CHAIN statement on line 
4770 of Menu. This has the effect of transferring all of the variables 
used in the program to the ERROR program. The ALL option has 
the same effect as listing all the variables used in a program in a 
COMMON statement. You may wish to expand the ERROR program 
to examine both the error codes ERR and ERL and the PLNK$ 
string in order to determine and report what corrective action the 
operator should take. Since all of the variables from the program 
containing the error have been transferred to the ERROR program, 
it is possible, at least in theory, to determine the cause of any error. 




Payroll 



Our purpose here is twofold. First, we want to show how the menu 
driver of Chapter 19 functions with a set of programs. Second, we 
want to illustrate how a set of several programs can function as a 
unit. The programs contained in the Payroll program set include the 
following: 

PREDIT.BAS Used to enter and edit employee data 
POSTHRS.BAS Keeps track of hours for pay period 
PRTCHK.BAS Prints the employees' checks 
ENTFTT.BAS Used to enter federal tax table 
PRTFTT.BAS Prints out the federal tax table. 

For each of these programs, we will give an overview of the program 
operation and show the program's screen mask, where appropriate. 

This set of programs can be used as a basis for a small business 
payroll. The programming skills you will have gained in using this 
book will allow you to modify these programs and also to add addi- 
tional programs to the set according to your specific needs. By 
adding or deleting fields, you can modify the programs to suit your 
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requirements. For example, the federal tax table could be extended 
to include other classes of employees. State tax tables could also be 
added. If your payroll includes employees on commission or em- 
ployees with different pay periods, the program could be altered 
accordingly. 

The Payroll Menu 

In order to run the Payroll programs, you will need not only the 
five programs shown above, but also INIT.BAS, MENU.BAS, 
MAIN. MEN, and MAIL.MEN from the previous chapter. These 
should be on your disk. In addition, you will need the menu file 
PAYROLL.MEN, shown in Figure 20-1. 

The program MENU.BAS presents you with a menu that in- 
cludes a Mailing List option, which you should not try at this point, 
since that option is presented and discussed in the next chapter. 
From the Main Menu, enter the Payroll selection by typing PRL. 
You are then presented with the Payroll menu shown in Figure 20-2. 
Included in this menu are three programs left for you to write as an 
exercise. These programs are EOQ, EOY, and PER. 

Entering Employee Data 

Enter in the brackets EPR. This chains to the PREDIT program. 
The message Program Loading appears and remains on the screen 
for two or three seconds. Then you are prompted with 

Enter Social Security number, to search for or add: [ ] 



Payroll file PAYROLL.MEN 

7," - P A Y R L L MENU-" 
"EPR","PREDIT.BAS","Edit/enter employee data" 
"PEH","POSTHRS.BAS","Post employees' hours" 
"PCH","PRTCHK.BAS","Print checks" 
"EOQ","ENDQTR.BAS","End of quarter (form 941)" 
"EOY","ENDOYR.BAS","End of year (form W2)" 
"PER","PRTROST.BAS","PRINT employee roster" 
"ETT","ENTFTT.BAS","Enter federal tax table" 
"PTT","PRTFTT.BAS","Print federal tax table" 



Figure 20-1. 

Contents of the PAYROLL.MEN file 
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-PAYROLL MENU- 

EPR = Edit/enter employee data 

PEH = Post employees' hours 

PCH = Print checks 

EOQ = End of quarter (form 941) 

EOY = End of year (form W2) 

PER = Print employee roster 

ETT = Enter federal tax table 

PTT = Print federal tax table 

END = End 

Enter selection [ ] 



Figure 20-2. 

The Payroll menu screen 



After you enter the Social Security number (with or without 
dashes), the program will search the array. If the number you 
entered is not found, you will receive the message 

Numoer net found in file; do you want to add it (Y/MJ? If] 

The Y is automatically placed in the brackets, assuming you want 
to add the number to your file. If not, you may enter the response N 
and press RETURN. If you respond with a "no," you return to the 
initial question to enter a new Social Security number. If you press 
RETURN with Y in the field, the full screen mask, as shown in Figure 
20-3, will be displayed on the screen. 

The Social Security number you just entered will be in the appro- 
priate field. The cursor will be in field one, Employee name. After 
entering data in a field, press RETURN and the cursor will advance to 
the next field. When you have finished entering the desired data, 
press the ESCAPE key and the following command line will be 
displayed: 

Field nuiber to edit, delete, save, or exit without save tl/'D/S/E)? E ] 

Make whatever choice you wish and press RETURN. 

While the cursor is in any of the screen mask fields, you may move 
to the previous field by pressing CTRL-K. Pressing CTRL-K when the 
cursor is in the first field (Social Security number) will return you to 
the Payroll menu. Pressing CTRL-K from the Payroll menu will 
return you to the Main Menu. 
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1. Employee name 


] 




2. Social security # 


] 




3. Pay rate 






4. JNumber ot dependents 






5. Deductions: 






Savings [ ] Dental [ 


] 




Medical [ ] Union [ 


] 




6. Hours 7. 


Quarter to date 


8. Year to date 


Regular [ ] Gross pay 


[ ] 


[ 1 


Over time [ ] Deductions 


[ ] 


[ ] 


Double time [ ] Fed tax 


[ ] 


[ ] 


Social security 


[ ] 


[ ] 



Figure 20-3. 

The Payroll screen mask 



Here is the PREDIT program: 

1 GOTO 10 

2 SAVE "PROMT": END 

4 SAVE "PREDIT*, A: END 

6 SAVE "PREDIT":RUN "INIT' 

10 REM =- -=*PREDI1*=- 

20 REM =- Payroll file editor 

50 REH =- 3/22/83 

40 REM =- 

30 COMMON a I $ , CSt , HC$ , SF$ , SB$ , CI* , BS* , BELLt , FF$ , CC$,PLNK$ , MLNKt . DATE*. PRt 

1000 
1010 

1020 * PROGRAM DATA * 

1030 ***^*ttf**«t**fc*********it* 
1040 

1050 [lata for field bracket locations: line, eolunn, length 
1060 

1070 DATA 19 

1080 DATA 5,25,25. 6,25,11, 7,25.6, 3,25,2 

1090 DATA 11,12.6, 12,12.6. 11,32.6, 12,32.6 

1100 DATA 15.14.6, 16,14,6, 17,14,6 

1110 DATA 15,42,8, 16,42.8, 17.42,8. 13,42.8 

1120 DATA 15,62.8. 16.62.3, 17,62,8. 18.62,8 

1130 

1140 Data for field descriptions: line, coluan, siring 

1150 

1160 DATA 5,1, "l j Employee naw",6,l,"21 Social Security t\7.1,"3i Par rate' 

1170 DATA 8,1, "4) Number of dependants". 10, 1, "5) Deductions' 

1180 DATA 11, 4. "Savings". 12.4. "Medical", 11, 25, "Dental". 12.25. "Union 8 
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1190 DATA 14, 13, "6) Hour;". 14, 38, "T> Quarter to date". 14,59. "Sj Year to date" 

1200 DATA 15,1- "Regular", 16, 1, "Overtime", 17,1, "Double time" 

1210 DATA 15,26, "Gross pay", 16, 26, "Deductions", 17, 26, "Feci, tax" 

1220 DATA 18,26, "Social Security" 4 . 0,0."" 

1230 

1240 *ft**ft******i:5'l> *Sft**ft***ft***ii:)B:S*f- • 

1250 * PROGRAM INITIALIZATION * 

i 260 *************** ********************** 

1270 

1280 DEFINT tri 

1290 ON ERROR GOTO 4070 

1300 DEF FNCPIi.UC) = CLI*+CHR*(t+31)KHR$(C*3r< 
1310 DEF FNCE$iL,St.i = FNCP$(L. (SO-LENtS*; >\2.<+SS 

5320 DEF FNCESSiU = FNCPSu..l)+MIBS<CESS, (L-l)*(LQI<CLS}+l/+l>«fNCPSU., !.« 
4330 DEF FWMSilMS) = HCS+CU+Sf ACES'. (8CK£N(H») )\2)+SF$+H«*SB$ 
1340 DEF FNBKTS(L.C,MS.> = FNCf 't!.UC)+" I " +«**"]* 

1350 DEF FNHKOIKNIt = Wilts INT i.N#/256)-32768i.i + CHRS(NI-INT(N»/256}<256> 

1360 DEF FWWIt«U = <CVI<N*> +32768* >*256 + ASC(MID$(N*, 3. 1 " 

1370 DEF FNXSS*(SS> = LEFTtf.SS. 3- + '-' + NIDS<SS,4,2) + + HID*iSS,6-4: 

1380 DEF FNC8S*(S$s = LEFT*(SS,3j + MIDt(St.5,2J + RIGHTS<SS.4t 

1390 ' 

1*06 TTL$ s CSt t FNCES(3, "PAYROLL FILE EDITOR") 

1410 RCt=CHRt(13)+CHR$(ll)+CHRt(27.i 3 Return characters 

1420 DIM RC(3):RC(1)=1:RC(2)=-1:RC(3)=995 3 Return codes 

14:30 READ NO.FLDS Read * of fields 

1440 NO. PAY. TYPE = 3 Number of pay types 

1450 NO.DEDIIC = 4 Number of deductions 

1460 NO. TO. DATE = 4 Number of to-date fields 

1470 DIM FttNO. FLDS) , FL(N0. FLDS) ,FC(N0. FLDS),DEDt(NO. DFKUC.! 

1480 DIM HRSSi.NO.PAY, TYPE.) , QTDtl.N0. TO. DATE) , YTDt (NO. TO. DATE I 

1490 FOR 1=1 TO NO.FLDS 

1500 READ FL(I.i,FC(I.i,FLN "Line, column, and length of screen field 
1510 FtU) = SPACEtiFLN* 'Set screen field length 
1520 NEXT i 
1530 

1540 MAXSIZE = 300 Ma:amun number of eapioyees 

1550 DIM SSKEY(300) 'This is a list of partial SS matters 

1560 

1570 OPEN "R", 1, "PREMP.DAT", 81 

1580 FIELD 1,1 AS STATUS'S . 2 AS FSIZEt 'Header ret or* 

1590 FIELD 1,25 AS EMPNAMES.9 AS SSt,3 AS RATES, 2 AS NODEPt 

1600 DUMMY = 25 + 9+3 + 2 'DUMMY will skip over first 4 fields 

1610 FOR I = 1 TO NO.DEDUC Field deductions 

1620 FIELD 1, DUMMY AS DUMMYt,3 AS DEDSU.) 

1630 DUMMY = DUMMY + 3 

1640 NEXT I 

1650 FOR I = 1 TO NO. PAY. TYPE Field current hour; 
1660 FIELD 1. DUMMY AS DUMMY*. 2 AS HRSiU.i 
1670 DUMMY = DUMMY + 2 
im NEXT I 

1690 FOR I = 1 TO NO. TO. DATE Field quarter and year to date totals 
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1700 FIELD 1, DUMMY AS DUMMY*,? AS QTD*m,3 AS YTDtil i 
1710 DUMMY = DUMMY ♦ 6 
1720 NEXT I 
1730 

1740 IF L0F(1)=0 THEN 1780 Check if file is new 

1750 GET 1,1 Gel header record of old file 

1760 BADFILE =< STATUS* O T"> Check if file was closed 
1770 GOTO 1790 

1780 LSET FSIZEt = nKHUJ Mew file, initialize header recors 

1790 FSIZE = CVIiFSIZEt.) Get Last Record for progras use 

1800 LSET STATUS* = "0" Set file to iO.ipen acde 

1810 PUT 1,1 Write header record 

1820 ' 

1830 FOR RN = 2 TO FSIZE Read partial SS numbers 

1840 GET 1,RN 

1850 IF STATUS* = CHR*(255) THEN 1880 
1860 SSKEY(RN) = VAL(RIGHT*^SSI.4.>.' 
1870 GOTO 1890 

1880 SSKEYiRN) = -1 -1 for deleted record 

1890 NEXT RN 

3000 

3010 **************************** 
3020 * MAIN PROGRAM * 

304O 

3050 PRINT TTL* 

3060 IF BADFILE THEN PRINT FNMSt( "WARNING: FILE WAS NOT CLOSED PROPERLY") 
3070 LSET F*(2) = " 

3080 PRINT FNCPt(5,l.i; "Enter social security number to search or add: "; 

30?0 L=0 : At = F*(2> : GOSUB 5300:F»<2« = A* 

3100 IF RCO-i THEN 3150 

3110 PRINT FNMSli "EXITING") 

3120 OOSUB 4120 Close files 

3130 PL!#:t=Mirj*(PLNKt,13.! Strip of program mk 

3140 CHAIN LEFT* (FINK*, 12) Return to chaining progra* 

3150 IF M1D*(F*(2).4,1) = THEN 3180 

3160 SEARCH* = L£FT*<F*t2J.9;:F*<2) = FHXSS*sF**2)i 

3170 GOTO 3190 

3180 SEARCH* = RCSS$tF*i2.0 

3190 GOSUB 4200 'Search for 55 number in SEARCH* 

3200 IF FOUND THEN 3300 
3210 PRINT FNCP*(6.1); 
3220 IF RN > THEN 3250 

3230 PRINT "Number is not found and there is no more room in the file. 
3240 GOTO 3080 

3250 PRINT "Number not found in file, do you want to add it iYVN)? "? 

3260 L = : A* = "V* : GOSUB 5300 input A* 

3270 IF A* <> *¥" OR RC = -1 THEN PRINT C!_ * : GOTO 3080 

3280 GOSUB 4610 'Initialize new employee 

3290 GOTO 3310 

3300 GOSUB 4690 Read in existing employes 



Payroll 359 

3310 GOSUB 4470 Print edit scretfl ms*. 

3320 IF FOUND THEN 3350 

3330 PRINT FNMStCNEU EMPLOYEE"' 

3340 FLD=1 : GOSUB 4380 Edit fields now if new employee 
3350 PRINT FNCPtf.24.1}; 

3360 PRINT "Field number to edit, delete, save,"; 

3365 PRINT " or exit without save (I/O/S/E)? "! 

3370 L = OsA* = " ":60SUB 5300 Field input At 

3380 IF Rt = -1 THEN A* = "E" Backup treated same as Exit 

3390 IF VAL<A*j = THEN 3460 



3400 


FLD=VAL«.A*< 


3410 


IF FLB = 8 THEN FID = It 


3420 


IF FLO = 7 THEN FID = 12 


3430 


IF FLB = 6 THEN FLB = 9 


344y 


GOSUB 4381.' 


3450 


GOTO 3350 



3460 SEL = INSTRi/'DSE'SAt) SEL = 1 for delete. 2 for sa*e, 3 Jsr exit 
3470 IF SEL = THEN PRINT FNMS*(" INVALID SELECTION"): GOTO 3350 

3480 ON SEL GOSUB 4880,4990 Delete or Save (No action for Exit' 
3490 GOTO 3050 
400O ' 

4010 * M ^W< M)LMU »)BHK*iM»*jt> 

4020 * SUBROUTINES * 

4030 **»«***M!*lfSr**»-(:M*t*«-t* 

4040 

4050 Error trapping 

4060 

4070 GOSUB 4120 Close files 

4080 CHAIN "ERROR".. ALL 

4090 

4100 'Close files 
4110 •• 

4120 LSET STATUS* = "C" Set file status as tC.uosed 

4130 LSET FSIZE* = MK1*(FSIZE> Set total number of records 
4140 PUT 1,1 'Write out header record 

4150 CLOSE 1 
416(1 RETURN 
4170 

4130 March for SS nuaber SEARCH* 

*1?0 

42u0 RN = 1: FOUND = F 
4210 KEY = VAL(RIGHT$(SEARCHt,4Si 
4220 WHILE RN < FSIZE AND NOT FOUND 
4230 RN = RN + j 

4240 IF SSKEViRN/ \> KEY THEN 4270 Check on last 4 digits 
4250 GET i.RM 

4260 FOUND = '.SEARCH* «= SS*.i Checi entire SS rcaber 
4270 WEND 

4280 IF FOUND THEN RETURN 

4290 RN = 2 If no! found, find an unset) rtcoto 

4300 WHILE RN < FSIZE AND SSKEYiRN) u -i 
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4310 RN - RN + ! 
♦320 WEND 

4330 IF SSfc£Y(RN> <> -1 Tt€N IF FSIZE < MAXSIZE THEN RN = FSIZE * 1 ELSE RN 

4340 RETURN 

4350 

4360 Edit field: 
4370 

4380 WHILE FLD « 1 AND FLD <= NO. FLOS 

4390 L = FL(FLD):C = FCiFLD.i Get iine and coluvt far input 

4400 At = Ft(FLD):GOSUB 5300:LSET FtiFLO,' = A* Input FtiFLDi 

4410 FLD = FLD ♦ Rl Return cede determines next field to edit 

4420 WEND 
4430 RETURN 
4440 

445) Print edit screen ms\ 
4460 

4470 PRINT TTL* 
44S0 RESTORE 1160 
4490 READ L.CSt 

4500 WHILE LOO l = is duny data 

4510 PRINT FNCP$(L,C/jSI 
4520 READ L.C.SI 
4530 WEND 

4540 FOR FLD=1 TO NO.FLDS 

4550 PRINT FNBKTt (Ft (FLD> .FCtFLD) .F*iFiD; j 

456.0 NEXT FLD 

4570 RETURN 

4580 

4590 Initialize new etplovee 
4600 

4610 LSET FtU.i = '- 

46*) FOR FLD = 3 TO NG.FLBS 

4630 LSET FttFlPi = " Clear all fields (except field 2> 

4640 NEXT FLD 
4650 RETURN 

46sO ' 

4670 Initialize for existing enplo?e{ 
4680 

4690 GET 1,RN 

4700 LSET Ft i.b = EMF'NAJIES 

4710 LSET F*i2) = FNXSS$iSS$; 

4720 LSET Ft* 3) = HID$(STR$tFNCVDII(RATE»,/lC<*»,2> 

4730 LitT F*f.4i = NODEH 

4740 FOR I = 1 TO NO.DEDUC Convert deductions 
4750 LSET FtU*4) = NIB»(ST»(FICVDII(DED»tI}i.'100i,2< 
4760 NEXT I 

4770 FOR I = 1 TO NO.PAr.TYPE invert pay type hours 
4780 LSET Ft(I*8> = MD*<STP$>CVI(HRS$!I>)/tOO},2> 
4790 NEXT I 

4800 FOR I = 1 TO NO. TO. DATE Convert quarter- and vear-to-riate total: 
4810 LSET F$tl+ll i = HID»'STR»(FNCVDI*tQTWi I • >.<K«, 2 
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4820 LSET F$iM5} = HIDt'.SHtt'FNMMIiYTDft I » )/i«.'=,2t 

4S30 next 1 

48*! RETURN 
4850 

4860 Delete employee 
4870 

4880 IF SSKEY(RN) = -1 THEN RETURN E»lwe8 net in file yet 
4890 SSKEYfRN)=-l Resove from ke* arras 

4900 IF RN < FSIZE THEN 4*30 

4910 FSIZE = FSIZE - 1 Delete last record 

4920 GOTO 4950 

4930 LSET STATUS* = CHR»<255.« Set deleted Has 

4940 PUT l.RN 
4950 RETURN 

4960 

4970 Save employee 
4980 

4990 LSET DFNAHE* = F*(l; 

5000 LSET m = FNCSS*(F*>2>J 

5010 LSET RATE* = FNHkTJI*(VAL(F*(3:UfliX«j; 

5020 LSET NOOEP* = F*<4> 

5030 FOR 1=1 TO NO.DEDLC LSET deduction; 
5040 LSET DEWUi = n*KDIt<VAL(F*U+4.U*100.< 
5050 NEXT i 

5060 FOR I = 1 TO NO. PAY. TYPE LSET pay type hour! 
5070 LSET HRStU' - >KI*(VAL(F*(I+8..i*i00.; 
5080 NEXT I 

5090 FOR I = 1 TO NO. TO. DATE lSET quarter- ana year-to-date totals 
5100 LSET GTTjtil." = F»W»I*iVALiF*(I+ll))*1003 
5110 LSET YTTj*<I> = FNHH)I*tVAL(F*iI+15)>*100i 
5120 NEXT I 

5130 SSKEY(RN) = VALiRIGHT*(SS*.4)) 
5140 IF RN > FSIZE THEN FSIZE = RN 
5150 PUT l.RN 
5160 RETURN 
5170 

5130 Bracket input 
5190 Input: 

Sa» At = String to input (Length must be set? 

5210 L.C = Line and column for input. i.L=0 for current position) 

5220 CI* = Cursor control characters 

5230 RC* = Return characters 

5240 RCO = Return codes (one for each char, in RCt) 

5250 

5260 Outputs 

5270 A* = New input is same length. 

5280 * RE = Return code specified in RED array. 

5290 

5300 SL=LENtA*):I=l 

5310 IF L>0 THEN PRINT FNCP*(L.Cj: Position cursor for input 

5320 PRINT »P:M?']*!STRIIi*iSUl.JS»: Print string for input 
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5330 CH*=INPtlT*d ' Get one char, of input 

5340 ON INSTRi(X$,CH$) GOTO 5430.5450,5470,550(1 'Search for cursor control 
5350 IF INSTR<RC$,CH$.i > THEN 5400 Search for return code 

5360 IF CH»<" " THEN PRINT BELL*;: GOTO 5330 No control chars. 
5370 RH»iA$,I.l)=CH$:PRINT CH*: Char to At and screen 

53S0 IF KLEN(At) THEN 1=1+1 ELSE PRINT BS»; Check bounds 
5390 GOTO 5330 

5400 RC = RC(INSTR(RC$.CH*» 'Get return code 

5410 PRINT CHR*U3J; Show ;c*? response 

5420 RETURfc 

54:30 IF I>1 THEN I=I-1:PRINT BSi: Backspace char, trap 

5440 GOTO 5330 

5450 IF KLEN(A$j THEN PRINT MID$«At,I,l.i;:l=l+l Right character 
5460 WTO 5330 

5470 HIM(A»,Ij=Hiri$tA*,I+l'+" " 'Delete char, trap 

5480 PRINT MIW<A*.lj;STRING$(SL-I*i,BS$): 
5490 GOTO 5330 

5500 HID$;A*,JJ=" "+MID*(A*,n Insert character 

5510 PRINT mn(M.I):SHHNGt(SL-I+l.BS$); 
5520 GOTO 5330 

PROGRAM DATA 

The data section of the program (lines 1000 through 1220) con- 
tains all the information necessary for the correct placement of the 
brackets on the screen. The numbers represent the screen line 
number, column number, and field length. The field titles are also 
contained in the DATA statements. 

PROGRAM INITIALIZATION 

Lines 1230 through 1380 take care of setting the error trap and 
defining the user functions for this program, since these cannot be 
transferred from one program to another by the use of the COMMON 
statement. 

Four new user-defined functions are included in this section. The 
DEF FN statements in lines 1350 and 1360 increase the size of the 
number that may be stored in the field for an employee's annual 
earnings. FNMKDI$ uses three bytes to store the numbers instead of 
the eight that would be required if we went to double-precision 
numbers. 

The functions FNMKDI$ and FNCVDI# work in the same way 
as MKI$ and CVI (the DI stands for "double integer"). The range for 
these functions is the integers from to 16,777,215. This means that 
the program can handle an employee's annual income of up to 
$167,772.15. Note that our "double integers" are only positive inte- 



Payroll 363 



gers. It is possible to modify the functions to handle negative num- 
bers (for some other application) simply by adding or subtracting an 
offset before making or converting the number. The only real limita- 
tion is that the "double integer" functions can store 2 24 different 
numbers. 

The next DEF FN statement, line 1370, places the dashes in the 
appropriate positions of the Social Security number when the pro- 
gram prints the number in the designated field. Line 1380 strips the 
dashes from the numbers when they are stored in the file, which 
saves two bytes for each record. The next portion of the initialization 
section, lines 1400 through 1520, takes care of defining the character 
codes and return codes used in the program. It also handles all of the 
dimensioning for the arrays. 

The FIELD statements for the files are also contained in this sec- 
tion. The maximum number of records for the file is set, and the 
status for the header record is determined to ensure that the files 
have been properly closed and to determine the number of records in 
the file. This header record is similar to the one described in Tutorial 
15-1. 

Now let's consider a variation on the traditional use of the FIELD 
statement. Study, for a moment, lines 1570 through 1720. Line 1580 
sets the fields for the header record for the PREMP.DAT file. Line 
1590 sets the first four fields for the remainder of the records. Lines 
1610 through 1640 set the field length for the four possible deduc- 
tions. The variable DUMMY is used to skip over fields that have 
been previously set in 1620. Lines 1690 through 1720 set the remain- 
ing fields for regular hours and overtime (time-and-a-half and double 
time) and for the cumulative totals (quarter-to-date and year-to-date). 
The variable DUMMY is again used to pass over the previously set 
fields. 

The use of the FOR/NEXT loop to set field lengths means that 
only one variable has to be changed to affect several FIELD lengths. 
If you want to set the fields in a large array in a single record, using 
a FOR/NEXT loop may be the only way to set all the field lengths 
with one FIELD statement. 

A specialized characteristic of this program is the method used to 
search the file for the name or Social Security number of an 
employee. Consider lines 1830 through 1890. During the initialization 
of the program, this section reads through the entire file sequentially 
and stores (in an integer array) the last four digits of each employee's 
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Social Security number. Then, when a request is made for an 
employee's data, the computer can quickly search the array for a 
match on the last four digits of the Social Security number. 

The variable SSKEY(RN) has the same subscript as the em- 
ployee's record number. When a partial match is made, the disk is 
accessed and a check of the full Social Security number is made. In 
the unlikely event that there are two Social Security numbers with 
the same last four digits, the search would continue through the 
array, checking against the full Social Security number until an 
exact match is found. If no match is found, the program asks if you 
wish to add that employee. 

Lines 1830 through 1890 also have another function: they deter- 
mine whether a record is unused and then store this information in 
the array by setting SSKEY(RN) equal to — 1. When a new employee 
is entered, his or her data goes to the first empty record, thus min- 
imizing wasted space on the disk. 

This procedure makes for fast searching, but it has a limitation. 
The limitation is that you have to have sufficient memory in the com- 
puter to contain both the program and the array. In line 1540 the 
maximum size for the array is set to 300. Since two bytes are used for 
each employee, the array utilizes 600 bytes. Although 600 bytes is not 
very much memory for 300 employees, the need for this much 
memory is a limiting factor. 

MAIN PROGRAM 

The primary purpose of the main program (lines 3000 through 
3490) is to handle all transfers to the subroutines. Additional func- 
tions, like that in line 3110, print messages such as EXITING when 
you leave the program. It is important that the operator should 
always be kept aware of what is happening. Line 3130 strips the 
name of the program from the PLNK$ string when control returns 
to the Payroll submenu. 

SUBROUTINES 

Lines 4050 through 4080 contain the chain to the error trap pro- 
gram and take care of closing the data file when an error occurs. 
When a Social Security number is entered, the subroutine in lines 
4180 through 4340 makes a sequential search of the array created in 
the program initialization to determine whether the number already 
exists in the files or whether it is a new number. The WHILE/ 
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WEND loop in lines 4380 through 4430 allows you to edit the fields 
allotted to new and existing employees. Lines 4450 through 4570 
print the brackets for the fields and the field titles for the screen 
mask. 

Setting up the fields for a new employee requires that they all be 
blanked. Lines 4590 through 4650 handle this. For an existing em- 
ployee, all of the data has to be read and converted into the appropri- 
ate fields. This is handled by lines 4670 through 4840. When an 
employee is deleted from the file, the record number has to be 
marked as empty. The subroutine in lines 4860 through 4950 sets the 
status of the record to 255, indicating an unused record. A value of 
— 1 is also placed in the Social Security array for this record. After 
all of an employee's information has been entered and you have 
chosen to save the data, lines 4970 through 5160 write the information 
to the file. 

The input subroutine (lines 5180 through 5520) handles all of the 
bracket input. All of the character codes and return codes imple- 
mented in this program are handled by the primitive subroutines of 
this section. This routine is identical to the one in the MENU pro- 
gram in Chapter 19. 



Posting Employees' Hours 

Choosing to post employees' hours from the Payroll menu chains 
to the PAYEMP.BAS program. You are prompted with 

Enter regular hours for this pay period: [ ] 

When you enter the number of hours and press RETURN, the screen 
then shows this message: 

Working on: 

The employees' names from the data file now flash on the screen 
rapidly. The purpose of this rapid flashing is to let the computer 
operator know that the program is working. When the hours for all 
employees in the data file have been posted, the program automati- 
cally returns to the Payroll menu. You may then use the EPR menu 
selection to edit the data of any employees with nonstandard hours. 
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1 GOTO 10 

2 SAVE 'FOSMS'iEM 

4 SAVE "P0STHRS",A:END 

6 SAVE "POSTHRS":RUN 'HOP 

10 REM =- -=«POSTHRS*=- 

20 REM =- Post employees hours 

30 REM =- 3/25/83 

40 REM =- 

50 COMMON ai*.CS»,HC$.SF*.SB$.CL*,BS$,KLL*.FF*.CC*.PLH(*,Hlt;$,DAT£$.OR$ 

1000 

1010 **fc***)t**t**Sft»**<>**t(tW**Mrtt**St^^j:t 

1020 ' * PROGRAM INITIALIZATION » 

1030 ^*fcOe*****^*«HHHHH^**Hf^****** 

1040 

1050 OEFINT A-I 

1060 ON ERROR GOTO 4070 

1070 DEF FNCP$(L,C) = ai*+CHR$(L+3U+CHR*(C+31.< 

1080 DEF FNCEKL.Si i = FNCW(L, (80-LEWS*) A2..+S* 

1090 DEF FNHS*(Mt) = HC$+a*+SPAtE$((8(HJEN(Htj)\2HSf$Htt+SB$ 

1100 DEF FNBKT*(L,C,M*) = FNCP$tl,C)+"["tM»+"]'- 

1110 

1120 TTL$ = CS* + FNCE*(3,"PAY EMPLOYEES") 

1130 PRINT TTL$;Rf6t*."0HE MOMENT PLEASE. - . *'f 

1140 RC$ = CHR$(13) + CHR$(11) 2 Return characters 

1150 DIM RC(2.>:Rt(l.) = 1:RC<2) = -I: 2 Return codes 

1160 NO.PAY.TYPE = 3 Number of pay rates 

1170 NO. DEDLiC = 4 Nurter of deductions 

1180 NO. TO. DATE = 4 "Number of to-tlate fields 

1190 DIM HRS*(NO.PAY.TYP£) 

1200 

1210 'Open employee data file 
1220 

1230 OPEN "R\1,"PREMP.DAT\81 

1240 FIELD 1.1 AS STATUS*,2 AS FSIZE$ Header record 

1250 FIELD 1,25 AS EMPNAME* 

1260 DUMMY = 25*9 + 3 + 2 + NQ.DEDUC*3 

1270 FOR 1 = 1 TO NO.PAY.TYPE Field current hours 

1280 FIELD 1, DUMMY AS DUMMY*. 2 AS HRS*U> 
1290 DUMMY = DUMMY + 2 
1300 NEXT I 
1310 •• 

1320 IF L0F(1)=0 THEN 1360 Check if file is new 

1330 GET 1.1 Get header record of old file 

1340 BADFILE = (STATUS* O "C") 'Check if file was closed 
135* GOTO 1390 

136.0 PRINT FNCP*(5, 1 ) ; "WARNING: no employees or, file." 

1370 INPUT "Press (RETURN) to return to the menu. ";M 

1380 GOTO 3280 Exit progra. 

1390 FSIZE = CVKFSIZE*.) Get Last Record for program use 

1400 LSET STATUS* = "0" Set file to (O)pen *>de 

1410 PUT 1.1 Write header record 
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3000 •' 

O/ 1 1 ft ->..■>- v v y y w w y v y y v t, y y i. g .|..vy, 

0*1 1 v *y*>:y.-.sSI vjcftTrJtJtxRy kKxTxRfx vt 

3020 * MAIN PROGRAM * 

3040 

3650 IF BAPFILE THEN PRINT FNMS*( "WARNING: FILE WAS NOT CLOSED PROPERLY") 
3060 A*=" 

3076 PRINT FNCPti5,i;rE-ter regular hours for mis pay period: 
3060 L=0: GOSUB 4390 -Input At 

3090 If RO-1 THEN 3280 "En! nrc-srai 

3100 IF VALiA*) > THEN 3130 

3110 PRINT FNMSV' INVALID M.HBEfi, PLEASE RE-ENTER' 'J 

3120 GOTO 3070 

3130 REGHR8* = MKI*(VAL(A*.i*100.> "Standard hours for regular pay rate 

3140 ZERO* = MKlfiO) for non-regular pay rate: 

3150 PRINT FNMS*("0NE MOMENT PLEASE ..,"); FNCP* (5,1 ) ; Ct$ 
3160 FOR fiW = 2 10 FSIZE 
3170 GET iti.RN 

3180 IF STATUS* = CHR*<255) THEN 3240 

3190 PRINT FNCP*(5,1); "Working on: ":EMPNAME$ 

3200 LSET HRS*U> = REGHRS:* Set regular tours 

3210 FOR 1 = 2 TO NO, PA (.RATES 

3220 LSET HRS*U) = ZERO* Set non-regular nr;, to 

32:30 NEXT I 
3240 PUT #1,RN 
3250 NEXT RN 

3260 PRINT FNCPt;5.1i;CL*;"Done. n 

3270 ■ 

3280 PRINT FNNStCEXITING") 

3290 GOSUB 4120 Close employee data file 

3300 PL*:*=flID*tPLNK* r 13) Strip of prograi name 

3310 CHAIN LEFT*(PLNKt, 12; 'Return to chaining progras 

WOO ' 

4020 * SUBROUTINES * 

4040 

4050 Error trapping 
4060 

4070 GOSUB 4120 Close employee data file 

4080 CHAIN "ERROR",. ALL 

4090 ■ 

4100 Close employee data file 
4110 ' 

4120 LSET STATUS* = "C" Set file status as (Cuosen 

4130 LSET FSIZE* = MKI*(FSIZE) 'Set total number of record; 
4140 PUT 1,1 Write out header record 

4150 CLOSE 1 
4160 RETURN 
4i:o 

4180 Bracket input 
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♦190 input: 

4200 A$ = Siring to input '.Length *jst be set ■ 

4210 L.C = Line ana column for input. (L=0 for current position) 

4220 Cf$ = Cursor control character? 

*230 RC* = Return character? 

424(i RC-ii = Return codes tone for each char, in RC*) 

425*0 

42c v Output) 

4270 A$ = New input is same length. 

428(i RC = Return code specified in RCti array. 

4290 

4300 5L=LEN(A*);I=1 

4310 IF L>0 THEN PRINT FNCP*(L,Ci; Position cursor for input 

4320 PRINT "[";A*;"]":STRING»(SL+l,BStK Print %lrm f« iwut 

4330 CH*=INPUT*U; Get one char, of input 

4340 ON INSTR<CC*,CH$.i GOTO 4430. 4450, 4470.4500 Search for cursor control 
4350 IF INSTR(RC*,CH$) > THEN M00 Search for mora code 

436f IF CH*<" " THEN PRINT BELL*:: GOTO 433(. 'No con' -ol chars. 
4370 HID*(A*,U)=CH*:PRINT CH»; Char to A* and screer. 

4380 IF KLEN(A$i THEN 1=1+1 ELSE PRINT BS*: Check oounds 
4390 GOTO 4330 

4400 RC: = RC(INSTR(RC$,CH$).i Get return code 

4410 PRINT CHR*U3); Show sc#? response 

4420 RETURN' 

4430 IF I>] THEN 1=1-1 :PRINT BS$: Backspace char, 

4440 GOTO 4330 

4450 IF MEN (At) THEN PRINT HIWiA*, 1, 1 1=1+1 Right character 
4460 GOTO 4330 

4470 NIW(A*,I)=niD*(AM+m" " Delete char, trap 

4480 PRINT mW(A$,I);STRlN6$iSL-ln.B8t>: 
4490 GOTO 4330 

4500 rtID*<A*,I>=" "+MID*(A*.Ij Insert character 

4510 PRINT «ID»(A*,I);STRING$tSL-I+l,BS$); 
4520 GOTO 4330 



Printing Checks 

The Printing Checks option of the Payroll menu chains to the 
PRTCHK.BAS program. You are prompted with 

print (C'heck.s or lAHignnent nasfc a/A'? [ 3 

An alignment mask is useful any time a preprinted form such as a 
check is to be filled in. It prints dummy data on the form so that you 
may check that the forms are positioned properly in the printer. If 
you choose to print the checks, the program indicates the totals for 
wages, taxes, and the various deductions, and then returns to the 
Payroll menu. 
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You will most likely have to modify the check printing subroutine 
of this program to suit your check forms. You may also wish to print 
additional information (like year-to-date totals) on the check stub. 

1 GOTO 10 

2 SAVE "PfiTCJ*: u :ENB 

4 SAVE "PRTCHK",A:END 
6 SAVE "PRTCHK":RUN "INIT- 
IO REM =- -=*PRTCt**=- 
20 REM =- Print checks 

30 REM =- 3/25/83 
40 REM =- 

50 COMMON ai*,CSt.HC$,SF*.SB*,a*,BS$.BELL$,FF$,CCt.PLNK$,MLNK4,[!ATE$.DRt 

1000 ' 

1020 ' * PROGRAM DATA * 

1040 

1050 DATA ONE, TWO, THREE, FOUR, FIVE.SIX, SEVEN, EIGHT , NINE, TEN, ELEVEN, TWELVE 
1060 DATA THIRTEEN, FOURTEEN, FIFTEEN,SIXTEEN,SEVE?<TEEN,EIGHTEEN, NINE TEES 
1070 DATA TWENTY, THIRTY, FORTY, FIFTY, SIXTY, SEVENTY, EIGHTV, NINETY 
1080 

1090 Deduction titles 

1100 

1110 DATA Savings, Medical, Dental, Union 
1120 ' 

IM ' * PROGRAM INITIALIZATION * 

1 150 mm m MlinM M m K X iHHH^MHHHHHBBHtfc 

1160 

1170 DEFINT A-Z 

1180 ON ERROR GOTO 4070 

1190 DEF FNCP*(L,Ci = ClI$+CHR$<L+31)+CHR*(C+31 t 

1200 DEF FNCE»(l,S*) = FNCP$(L,(80-LEN(S$))\2;+St 

1210 DEF FNMS*(M$J = HC$+a*+SPACE$((80-L£N(Mt))\2)+SFVM$«SBt 

1220 DEF FNBKT$(L,C,M$> = FNCP$(L.C)+"[ 3 +M$+"]' 

1230 DEF FNMKDI$(N#) = Mf<I$(INTiNt/256)-32768#> + CHFtt(f«-INT(ltt/256)*256> 
1240 DEF FNCVDI#(N$) = (CVI ;N». 1+32768* .1*256 + AS£(MID*<»,3.i.U 



125.J 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 



TTL$ = CS$ + FNCE$(3,"PAY EMPLOYEES"! 

PRINT TTLt;FNHS$("0NE MOMENT PLEASE..,"' 

RC$ = mum + CHfWll) '2 Return characters 

DIM RC(2):RC(1) = 1:RC(2) = -1: '2 Return cades 

NO. PAY. TYPE = 3 Number of pay rates 

NO.DEDUC = 4 Nuaber of deductions 

NO. TO. DATE = 4 Number of to-date fields 

F1CARATE* = 6.23* Social security rate (in percent) 

DIM DED$(N0.DEDiX),l«S$(N0.PAY.TYPE),TD$(2,N0.T0.DATEi 

DIM DEE* (MO. rjEKX) , TOTDEMtNO. DEBUCj 

DIM NUMBERM27.1 
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1370 FOR I = 1 TO 27 
1380 READ NUMBER* ( I .! 
1390 NEXT 1 

1400 FOR I - 1 TO NO.DEDUC 
1410 READ DEDNAHEtd) 



'Read deduction descriptions 



'Read long hand numbers 



1420 NEXT I 

1430 ' 

1440 -Read in federal tax table 
1450 

1460 OPEN "I", 11, "FEDTAX.DAT" 
1470 IF NOT EGFU) THEN !51t< 

1480 PRINT FNCW5, In "WARNING: No federal tax table has been entered. 1 

1490 PRINT "Press an* key to return to menu. ";:A* = INPUT*', If 

1500 GOTO 3200 Exit Prograt 

1510 INPUT #1,FTSIZE,NAXD£P,EXPRCT! 

1520 DIM FTAX#«FTSIZE,NAXDEP.UNDEX#<FTSIZE> 

153.) FOP 1=1 TO FTSI2E 

1540 INPUT #1, INDEXid) 

1550 FOR J = TO HAXDEP 

1560 INPUT ll,F7AX#(I,J.i 

1570 NEXT J 

1S50 NEXT 1 

1590 CLOSE *! 

im 

1610 'Open employee data file 
1620 

1630 OPEN "R\#l, "PREMP.DAT*, 81 

1640 FIELD 11,1 AS STATUS*,2 AS FSIZE* Header record 

1650 FIELD 11,25 AS EMPNAME*,9 AS SS*,3 AS RATE*, 2 AS NOOEPt 

1660 DUMMY = 25 + 9 + 3 + 2 

i670 FOR 1=1 TO NO.DEDUC Field deductions 

1680 FIELD tl, DUMMY AS WJMM r * . 3 AS DEWU' 

1690 DUMMY = DUMMY + 3 

1700 NEXT I 

1710 FOR I = 1 TO NO. PAY. TYPE Field par type hows 
1720 FIELD il. DUMMY AS DUMMY*. 2 AS HRSi'l* 
1730 DUMMY = DUMMY + 2 
1740 NEXT 1 

1750 FOR 1 = 1 TO NO. TO. DATE Field to-date totals 

1760 FIELD #1, DUMMY AS DUMMY*,3 AS TD$(1,I),3 AS TB*(2 T I) 

1770 DUMMY = DUMMY + 6 

1780 NEXT I 

1790 

1800 IF LOF(iK) THEN 1840 Check if file is new 

1810 GET 11,1 Get header record of old file 

1820 BADFILE = (STATUS* <> »C") Check if file was closed 
1830 GOTO 1870 

1840 PRINT FNCP*(5, 1) ; "WARNING: no employees on file." 

1850 INPUT "Press < RETURN) to return to the menu. ";At 

1860 GOTO 3200 Exit progra* 

1370 FSIZE = CVI (FSIZE*) Get Last Record lor program use 
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1880 LSET STATUS! = "0" 'Set file to (O.ipen »de 

1890 PUT #1,1 'Write header record 

3000 ■' 

3010 ' wwn i »Km)MKinain i »« i itwiBWi 

3020 * MAIN PROGRAM * 

303(1 *HHHH«*lHM«*l«>8HH8HHS*Hi**« 

3040 

3050 IF BADFILE THEN PRINT FNHS*( "WARNING: FILE WAS MOT CLOSED PROPERLY") 

3064) PRINT FNCP$<5, in "Print (C)h«*s or tA;lign»ent «sk tC/A)? 

3070 L=0:A*=* ": GOSUB 5150 'Input At 

3080 IF RC = -1 THEN 3200 'Exit progrw 

3090 IF A$ = "A" THEN GOSOB 4660 Print alignment rat 

3100 IF A* <> "C THEN 3060 

3110 ZERO* = MKIt<0) 

3120 PRINT FNMStCPRINTIND CHECKS. .. ."J;FNCP*(5.1>;CL* 
3130 FOR RN = 2 TO FSIZE 
3140 GET #1,RN 

3150 IF STATUS* <> CHR*(255) THEN GOSUB 4240 Compute pay 
3160 NEXT RN 

3170 GOSOB 4940 Print totals 

3180 PRINT FNCP$(5,li;CL$:"Dor,p," 

3190 

3200 PRINT FNHS*("EXITIHG"} 

3210 GOSUB 4l6<- Close employee data file 

3220 PL»:t=HIBii.PLNK*,i3.< Strip of Program name 

3230 CHAIN LEFT*(PLNK*,12> Return to chaining progrw 
4000 

4010 *»M+»#»tHt«H.e4«t»Hf« 

4020 * SUBROUTINES 

403v ' i»*^<**<»*ti>»**«*»«**»**» 

4040 

4050 Error trapping 
4060 

4070 IF ERR <> 53 OR ERL © 1460 THEN 4110 

4Ci80 PRINT FNCP$(5,1); "WARNING: Federal tax tables have not been entered. 1 
4090 PRINT "Press any key to return to menu. "::A* = INPUTX1) 
4100 GOTO 3220 Exit prograt 

4110 IF FSIZE > THEN GOSUB 4160 Close employee data file if open 

4120 STOP: CHAIN "ERROR", .ALL 
4130 ' 

4140 Close employee data file 
4150 

4160 LSET STATUS* = "C" "Set file status as lOlosed 

4170 LSET FSIZE* = MKIiiFSIZE) 'Set total number of records 
4180 PUT #1,1 -Write out header retort 

4190 CLOSE 1 
42-00 RETURN 
4210 

4220 'Compute pay for employee 
4230 

4240 PRINT FNC:p*(5.1. 1; "Working on: "jEHPNAME* 
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4250 RATE! = FNCVDI*(RATE$;/1000I Pay rate 

4260 NODEP = VALt NODEP** 

4270 GROSSPAYI = This will be employee s gross pay 

4280 FOR 1=1 TO NO. PAY. TYPE 

4290 GROSSPAYI = GROSSPAY* + INT(CVI(HRS»(l))«RATE#*(l*.5+.5) + .5*1/1001 
4.300 NEXT I 

4310 GROSSDEIii = 'Thi = will be the gross deductions 

4320 FOR I = 1 TO NO.DEDUC 

4330 DED#(1> = F1CVDIK.DED*(I))/100i 

4340 GROSSDEDI = GROSSDEDt + DEDKI ' 

4350 NEXT I 

4360 FICAI = M(FICARATE#*GROSSPAY# + .53/100* 'Social security 
4370 ENTRY = ! Search table for federal tax 

4380 WHILE ENTRY < FTSIZE AND GROSSPAYI >= INDEXKENTRY.' 
4390 ENTRY = ENTRY + 1 
44O0 MEND 

4410 FED* = FTAXKENTRY. NODEP) 
4420 IF ENTRY=FTSIZE THEN 

FED*=FEBI+1NT(EXPRCT ! *(GR0SSPAY»-INDEX#(ENTRY-1 J )+. 5)/ 100 
4430 NETPAY* = GROSSPAY* - GROSSDED* - FED* - FICAI 
4440 IF NETPAY* <= THEN 4620 Do nothing if NETPAY* is not positive 
4450 TOTPAY* = TOTPAYI + GROSSPAY* "Keep gross par total 

4460 FOR I - 1 TO NO.DEDUC Total deductions 

4470 TOTDEDIU.i = TOTDEDKI) + DEDHIj 

4480 NEXT I 

4490 TOTFICA* = TOTFICA* + FICA* Total social security 
4500 TOTFEW = TOTFED* + FED* Total federal tai 

4510 FOR 1=1 TO NO. PAY. TYPE Set hours to *er* 

4520 LSET HRS*U> = ZERO* 
45:30 NEXT I 

4540 FOR 1 = 1 TO 2 Set totals in eaplom's tile 

4550 LSET TWU.D = FNr*OI*<FNCVDII<TD*(I,l)) + 6R0SSPAYMO0) 
4560 LSET TDK 1. 2) = FNMKDI*<FNCVDI#UD*(I.2i > + GRC<SSD£D**100> 
4570 LSET TD$u,3) = FNMKDIKFNCVDI* ( TDt ( 1 , 3) ' + F€D#*10O) 
4580 LSET TWU.4) = FNMKDI$(FNCVDl*(TMil.4.i.» + F1CAI*100> 
4590 NEXT I 

4600 GOSUB 4720 Print check 

4610 PUT II, RN 
465® RETURN 
463v 

4640 'Print alignment Bask 
4650 

4660 LSET EMPNA«E$ = "THIS CHECK IS VOID": NETPAY* = 123.45 
4670 GOSUB 4720 Print a check 

4680 RETURN 

4690 

4700 'Print a check 
4710 

4720 LPR I NT : LPR I NT : LPR I NT TAB(60);BATE* 

4730 LPRINTrLPRINT "Pay to the order of: •-.Qfmt.t: 

4740 LPRINT TAB<60) USING "**H#.ir:NETPAYI:LPR]NT:LPRINT 'The su»: 
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4750 
4760 

4770 
4730 
4790 
4800 
4810 
4820 
4830 
4340 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4>T0 
4960 
4970 
4980 
4990 
5000 
5010 



X = INT(NETPAYI) 

IF X >= 1000 THEN LPRIMT WjreERttXUOOOi;* THOUSAM) ':: X = X NOD woo 

IF X >= tOO THEN LPRIMT NUWB»«\1©0);" HUNDRED :: X = X NOD 10C' 

IF X > 20 THEN LPRIMT NUMBER* (X\ 10 ♦ 18);" ";: X = X MOD 10 

IF X >= 1 AND X i= 20 THEM LPRIMT NUMBER**)?" L : 

LPRIMT USING "AM) ti/100 DOLLARS': i.NETF'AYI - INTtNETPAtti >M0t 

LPRINT:LPRINT 'Line feed down to check stub 



»$##*. HMGROSSPAYI 



$f»tlt. »" : 0EDNAflE*< I j • OEDit 1 1 



«##*.*#": FED* 
t*#H.H";FICA* 



LPRIMT USING "Gross par: 
LPRINT "Deductions:' 
FOR I = 1 TO NO.DEDUC 
LPRINT USING " \ 
NEXT I 

LPRINT IKING "Federal tax: 
LPRINT USING "FICA; 
LPRINT:LPRINT 
RETURN 

'Print total; 



LPRINT USING "Total gross pay; $$«##. «":T0TPAYt 
LPRINT "Total deductions:' 
FOR I = 1 TO NO.DEDUC 
LPRINT USING " \ 
NEXT I 

LPRINT USING "Total federal tax 
LPRINT USING "Total FICA: 
RETURH 



\ $$#*## . #*" : ICDNAMEti I i : TOTDEDM 1 ) 

**««.##";T0TFEM 
$$#ttl.#f-:TOTFICAt 



5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 



Bracket input 
Input: 

A* = String to input Length must be set.' 

L,C = Line and column for input. tL=0 for current position 

CC$ = Cursor control character; 

RC$ = Return character; 

RCO = Return codes (one for each char, in RC$. ! 
Output: 

At = New input is same length. 

RC = Return code specified in RCO array. 



SL=LEN'A$i:I=l 

IF L>0 THEN PRINT FNCf$tL,G); 
PRINT "l":A$; a ]":STRINijt';a+l,B;.$;; 
CH*=Bftft«IJ 

ON INSTRiCC$,CH$> GOTO 5280,5300.5320,535.0 
IF INSTR(RC$,CH$; > THEN 5250 

IF CH$<" ' THEN PRINT BELLt: :GOI0 5130 

MIDS(A$.1.!)=CH$:PRINT CHI: 

IF KLENtA*) THEN 1=1+1 ELSE PRINT BS»: 
GOTO 518P 

RC: = RC(INSTR(RCt,CH»)) 



•Position cursor for input 
frmi string for is»ut 
Get one char. :'" s"*ut 
March for cursor control 
Search for return cod£ 

•No control chars. 
Cfca* to A$ and screen 
Check Dound; 

Get return code 
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5260 PRINT CHR»U3); ''Show sow nwcna 

5270 RETURN 

5280 IF I>1 THEN I=H:PRINT BSt; 'Backspace char, trap 

5290 GOTO 5180 

5300 IF KLEN(A$) THEN PRINT MD*(A*,I.1<;:I=1+1 Right character' 
5310 GOTO 5180 

532!) MD*(A*,I)=MID*tA*.I+l)+* " Delete char, trap 

5330 PRINT MIDttA*,l);STRIHG*(SL-I+!.Bb*k 
5340 GOTO 5180 

5350 mD$(A*,I)=' "+t1IDtiAt.lj Insert character 

5360 PRINT KlK(At. I):STRINGt<SL-M,BS$); 
5370 GOTO 5180 



Entering Federal Tax Tables 

Choosing to enter federal tax tables from the Payroll menu chains 
the ENTFTT.BAS program. 

fiote: This prograa will overwrite the existing federal tax tables. 
Do you wish to continue (Y/N)? 

If you proceed, the program will create a file for the new tax table to 
store the data you enter. 

1 GOTO 10 

2 SAVE "ENTFTT":END 

4 SAVE "ENTFTT",A:END 

6 SAVE "ENTFTT":RUN "1N!T" 

10 REM =- -=*ENTFTT*-- 

20 REM =- Enter federal ta* tables 

30 REM =- 3/21/83 

40 REM =- 

50 COMMON a 1 * , CS* . HC* , SF* , SB* , CL$ . BS* . BELL* , FF $ , CC* . PINK* . MLNK*. DATE*. OR* 
1000 

1010 '' 

1020 * PROGRAM INITIALIZATION » 

1040 

1050 DEFINT A-Z 

1060 ON ERROR GOTO 4070 

1070 BEF FNCP*(L,C) = ai*+CHR*(L+31)+CHR*(C+31) 

1080 DEF FNCE*(L,S*) = FNCPttL. (8CH.ENtS*j 3 \2 i+St 

1090 DEF FNMStiM*) = r€tCL*+mE*!(80-LEN(M*H/2j+SFt+M*tSB* 

1100 MAXSIZE = 50 ' Max i nun # of entries for tax taole 

1110 

1120 PRINT CS*;FNC£*(3, "FEDERAL TAX TABLE ENTRY") 

3000 ' 

3010 •' *******t***tis-*****«)e**»***» 
3020 ' * MAIN PROGRAM * 

3030 tW^^lHWM****** ********* 
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3040 

3050 PRINT FNHS$("");nm<5.i); 

3060 PRINT "NOTE: this program will overwrite the existing federal tax table." 
3070 INPUT "to you wish to continue (¥/N>? ",At 
3080 IF A»<>"Y" THEN 3390 Exit progra* 

3090 PRINT: INPUT "Enter maximum number dependents: ".MAXDEP 
3100 DIM TAX#(MAXSIZE,MAX[€P.),HIGH#(MAXSIZE.i 

3110 ENTRY = hLOWt = 0:D0NE = (1=2) Variable DONE is initialized to false 
3120 WHILE NOT DONE 

31:30 PRINT: PRINT "Table entry' ; :ENTR\ 
3140 PRINT "Incose at least *;L0Wt: 

3150 INPUT "but less than (Enter for final entry): '.HIGHKEMBiYJ 
3166 PRINT "Withholding for:' 
3170 FOR I = TO MAXDEP 

3180 PRINT I: "Dependents: "::INPUT "*. TAXI (ENTRY. Ii 
3190 NEXT I 

3200 DONE = (HIOHKEKTRY) = W DONE is set to true on final e»tr> 

3210 IF DONE THEN 3250 
3220 LOW = HlGHt(ENTRY) 
3230 ENTRY = ENTRY + 1 
3240 GOTO 3270 

3250 PRINT "Percentage of the amount over";L0WS:' is? "; 
3260 INPUT = \EXPRCT! 

3270 WEND 

3280 PR I NT : PR I NT "Writing tax file....": 

3290 OPEN "0".*1, "FEDTAX.DAT" 

3300 WRITE #1 , ENTRY, MAXDEP, EXPRCT ! 

3310 FOR 1 = 1 TO ENTRi 

3320 WRITE tl,HIGH#!I) 

3330 FOR a = TO MAXDEP 

•3340 WRITE Il.TAXtCI.Jj 

3350 NEXT J 

3360 NEXT i 

3370 CLOSE U Close tax file 

3380 

3390 PRINT: PRINT "Done, exiting progr an" ; FI«S$ ( "EX i T IMG ":■ 
3400 Plf*;$=NID$(PLN' i 13; Strip of progran haw 

3410 CHAIN LEFT$(PLNK*,12i Return to chaining progra 
4000 

4010 ««stm«t>*»t«s«*f*Sf 
4020 * SUBROUTINES 

4O30 ««mh8**« «**»*#♦!-«<<***«». 

404<) 

4050 Error trapping 
4060 

4070 CLOSE #1 Close ias file 

4080 CHAIN "ERROR-,, ALL 
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Printing Federal Tax Tables 



Printing the federal tax tables chains in PRTFTT.BAS. You are 
prompted with 

Press < RETURN) when printer is ready. 

The program then prints out the tax table that you entered in the 
previous selection so that it may be verified. After printing the table, 
the program returns to the Payroll menu. 

1 GOTO 10 

2 SAVE "PRTFJT":EN£ 

4 SAVE 'PRTFTT", A:END 

6 SAVE "PRTFTT": RUN "WIT" 

10 REM =- -=*PRTFTT*=- 

20 REM =- Print federal tax table 

30 REM =- 3/21/83 

40 REM =- 

50 COMMON CU$,CS*,HC$,SF*,SB*. Lit, BS$, BELLI. FF*, tt*.FtHX*.MLNK*. DATE*. BR* 

1000 

1010 «H«<W*«»«*jat«HHf)(**«««»'******««»*«*»Hl 

1020 ' * PROGRAM INITIALIZATION * 

WW ' 

10W DEFINT A-2 

1060 ON ERROR GOTO 4070 

1070 DEF FNCP*iL,Cj = CLI*+CHR*(L*31)+CHR*(C+31i 

1080 DEF FNCEtOL.S*' = FNCWL. (80-LEN(S*m2>+S1 

1090 DEF FNMS*(H*.' = HC*+CLt+SPACE*' (SH.ENtM*j ! 2>+SF*tM*+SB* 

1100 FM1* = ' **«.** I* 

1110 

1120 PRINT CS*;FNMSti "" );FNCE*(3, "PRINT FEDERAL TAX TABLE'S 
3000 

3020 * MAIN PROGRAM » 

3030 **»♦»*«•*«»*»«*»*»•*«•«•<•»*«««»♦ 
3040 

3050 PRINT FNCFtCS.li; 

3060 OPEN 'i",#l, "FEDTAX.DAT" 

3070 INPUT "Press <RETURN.; when printer is ready. ".A* 
3030 PRINT FNMSti "PRINTING TAX TABLE....*) 
3090 INPUT #1,SIZE,MAXDEP,EXPRCT! 

3100 LPRINT:LPRINT TAB(25); "FEDERAL WITHHOLDING TAX TABLE":LPK'IN1 

3110 LPRINT " S *; TMK 16) ; 'RANGE * ; TAB(29> ; " i " ; TAB('te) ; 'MISER Gf DEPENDENTS ■ : 

3120 LPRINT TABiMAXDEFMO + 39): 1 *!" 

3130 LF'RINT "! At least ; but less than !"; 

3140 FOR I = TO MAsDEf 

3150 LPRINT USING " #* 

3160 NEXT I 



3170 LPRINT: LPRINT "i i !"? 

3180 FOR 1=0 TO MAXDEF 

3190 LPRINT ■* i"; 

3200 NEXT I 

3210 LPRINT 

3220 LOU* = 

3230 FOR 1=1 TO SIZE 

3240 LPRINT USING "I $$*♦*.** !";LOWI; 

3250 IF I = SIZE THEN 3290 

3260 INPUT II, HIGH! 

3270 LPRINT TABU7) USING ■*«H.H i ';HIGHI: 
3280 GOTO 3300 

3290 LPRINT TAB(17> USING HH.HIVEXPRCT!: 
3300 LPRINT TAB(29);*!"; 
3310 FOR J = TO MAKDEP 

3320 INPUT II, TAX* 

3330 LPRINT USING PHTOTWfe 

3340 NEXT J 

3350 LPRINT 

3360 LOW = HIGH* 

3370 NEXT I 

3380 LPRINT: LPRINT "Printed: ,: :DATE$ 

3390 LPRINT FT*: 'For* feed the printer 

3400 ' 

3410 CLOSE #1 'Close tax file 

3420 PRINT:PRINT "Horn, exiting prograa"; 

3430 PLNK$=WOMPLNK$, 13) 'Strip of Fredas naac 

3440 CHAIN LEFT$(PLNK$, 12) 'Return to chaining prog,- as 

4000 ' 

4010 ' ^S***fr*-*?r*ft****fr**+ftft**>i* 

4020 ' * SUBROUTINES * 

wm * 

4050 'Error trapping 
4060 ' 

4070 CLOSE #1 'Close tax file 

4080 IF ERR <> 53 OR ERL p 3060 THEN CHAIN "ERROR "..ALL 

4090 PRINT "WARNING: Tax tables have not been entered yet." 

4109 INPUT "Press .RETURN; to return to am. ",AS 

4110 GOTO 3410 
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Our final program is a lengthy and sophisticated mailing list pro- 
gram. Our purpose here is to tie in a complete program with the 
menu driver of Chapter 19. In addition, this program will exemplify 
the use of keyed files. Those who need such a program and have the 
patience to type it in will find it very practical, especially for main- 
taining a customer mailing list with a data base of about 500. If you 
wish to maintain a larger data base, it would be desirable to incorpo- 
rate a commercial machine language search routine like Micro B+, 
which was discussed in Chapter 18. 

The program presented in this chapter could be used by a small 
business to maintain a list of customers. The program stores the 
names, addresses, and attributes of customers in a file. When you 
enter a customer's name, the program searches the file and displays 
the data for that customer on the screen. 

Using Key Files 

The main feature of this program is the use of keys to search the 
file for the requested information. As an illustration of the principle 
of key files, consider the simple example presented in Figure 21-1. In 
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Data File: 




Key File: 




Record # 


Names in File 


Age 


Key Record # 


1 


Smith, Sam 


21 


AD 


4 


2 


Jones, Mike 


18 


BA 


5 


3 


Wilson, Sally 


33 


JO 


2 


4 


Adams, Jane 


24 


SM 


1 


5 


Baker, Alfred 


27 


WI 


3 



Figure 21-1. 

Key file structure 



this example the data file contains an individual's name and age. A 
separate file, the key file, is maintained by the program. Each time a 
new record is added to the data file, a key is constructed that con- 
tains the first two letters of the last name and the record number 
that contains that name. The key is then placed in the proper alpha- 
betical position in the key file, while the names go into the next avail- 
able record in the data file. 

The record number after the first two letters of the last name in 
the key file is referred to as the pointer because it points to the record 
number of the data file that contains the complete data. Then, any- 
time a request is made for the data associated with a name, a binary 
search is made of the key file and the pointer tells the program 
which record to read. The advantage of this procedure is that records 
in the data file, which may be quite lengthy, do not have to be shuf- 
fled. Only the three-byte records of the key file have to be rearranged 
to maintain the pointer so that it keeps track of the names in alpha- 
betical order. 



Mailing List Overview 

The purpose of this chapter is not to have you write a program 
with a keyed file but to give you access to a prewritten keyed-file 
subroutine that you can use with a mailing list program. 

In addition to a key based on names, the programs MLEDIT.BAS 
and MLPRINT.BAS also maintain and use a key based on ZIP codes. 
This ensures that when you print mailing labels, the list will be 
printed out in ZIP code order, which is what the post office requires 
for bulk and lower-cost first-class mailings. 
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Note that you must append the program discussed in the section 
"Key File System" at the end of this chapter to both MLEDIT.BAS 
and MLPRINT.BAS. 

HIT SELECT 

Another feature of the mailing list program is a technique called 
hit select, which consists of searching the file to find a group of 
records with similar names. For example, if you enter only the letter 
L for the customer name, all of the customers' names that begin with 
L will be presented on the screen, with each name numbered. You 
may then select by number the name that you wish. The data for that 
customer will automatically be shown in the screen mask. 

In this particular application of hit select, you may enter any 
number of letters you like up to the complete name. 

Customizing the Mailing 
List Programs 

The largest portion of the MLEDIT.BAS program (the file han- 
dling section) maintains the key file. Although this topic is not 
covered in this book, you can still make limited modifications to the 
program for your application. 

1 GOTO 10 

2 SAVE •ftEDiT'se* 

4 SAVE "MLEDIT",A:END 

c SAVE 'MLEDIT":RUN "1NIT 

10 REM =- -=*MLEBIT*=- 

20 REH =- Mill List Editor 

30 REM -- vw 1.0 03/22/83 

40 REM =- 

50 COMMON CLl$,CS*,HC$,3F$,SE»,C4.I.BS*.BEU.«,FF».C£t.PLNK$.«LNK«,DATE».IiR$ 

1000 

1020 * PROGRAM DATA * 

1030 **Stf:;:***S*****t****X*tiS**t» 

row 

105(i 'Screen mask data: Line number. Coition for description, 

10*0 Column for brackets, Length of field. Field type, field description 

1070 

1080 Field type: = Field does not belong in file buffer 
1050 1 = Field gets FIELBed into file buffer 

1100 

1110 DATA 13 

1120 DATA 5,1,20,25,1,"!) Customer name", 6. 1,20,20, 1, "2; Title" 
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1130 DATA 7,1.20,25,1, "3) Address line 1%8, 1.20,25, 1,*4) Address line 2 

1140 DATA 9,1,20,9.1, "5) Zip code". 13,1, 14, 1.0, "6; Credit' 

1150 DATA 13, 19. 34, 1,0, "7) Chech card". 13,39.52,1, 0,"8.i Cash only' 

1160 DATA 13,57. 73,1,0, "9' Employee", 14, 1.14. 1.0. i0> Courtesy' 

1170 DATA 14,19.34.1,0, "ID Products", 14,39,52, 1.0, "12) Services' 

1180 DATA 14,57,73, 1.0. "13) Time" 

1190 

1210 ' * PROGRAM INITIALIZATION * 

1220 ' **JS»*»l»*««H9H«B«»»***WHa>«H»J^iW 

1230 

1240 'Define functions 

1250 

1260 DEFINT A-Z 

1270 ON ERROR GOTO 4070 

1 280 DEF FNCPt < L , C ) =CL I $ tCHRt 1 L+31 J +CHR* ( C+ 3 1 i 

1290 DEF FNCEt (L,Mt) =FNCPt (L , (80-LMMt)}\2}+Mt 

1300 DEF FNCES$(L)=FNCP$(L. 1)+MID$(CES$. (L-l)«(LEN(a$^l)+l)*fNCP$(L. 1) 
1310 DEF FNMS$(M*)=HC$+a*+^ACE$i (80-LEN(M») ) \2H5FM»*5» 
1320 DEF FN»J$(L.C.«*)=FNCPt(L,C )+' i [''W+"]- 

1:330 

1340 Initialize variables and open files 

1360 PRINT CSt;FNCEt(3,"-~ MAIL LIST EDITOR-") 

1370 PRINT FNMS$("0NE MOMENT PLEASE,..."): PRINT 

1380 RC*=CHR*(13)+CHR»(11)CHR»(27) "i Return characters 

1390 MAXHIT = 15 'Maxiwjii # of hits per screen 

1400 DIH RC(3).HRN(MAaHIT) 3 Return codes. 15 hits per screes 

1410 RC(1)=1:RC(2)=-1:RC(3)=999 3 Return codes 

1420 READ NF Read t of fields 

1430 DIM FL ( NF ) , FDC t NF ) , FC { NF ) , FLN ( NF ) , Ft i NF f , F0$ i NF ) 

1440 CESt = CLt 'Construct clear to end of screen string 

1450 FOR 1=1 TO 23:CES$=CES$iCHR$(10)+at:lCXT 1 

1460 NMKF = 1 : ZIPKF = 5 Name key from field 1. zip key from field 5 

1470 NKF=2: NDF=1 : MRL=105: 6CSUB 6250 Initialize file system 
1480 ■ 

1490 Ha*e key file 

1 500 LKN= 1 : KFNMt=DRt+ "NAME , KEY " : KL ( 1 ) =6 
1510 GOSUB 7300 Open name key file 

1520 

1530 Zip key file 

1 540 LKN=2: KFNMt=DRt+ "ZIP, KEY " : KL (2 ) =5 
1550 GOSUB 7300 Open zip key file 

1560 

1570 Mail list data 

1580 LDN=1 : DFNMt=DR»+"ML. DAT": RLi 1 1=105 

1590 GOSUB 645* 'Open link list data file 

1600 DHY=0 

1610 FOR I = 1 TO NF 

1620 READ FL(I),FDC:(I),FC(I),FLN(I>.FT.FW<I.. 

1630 IF FT=0 THEN 1«70 Check field type 

1640 FIELD DFNiLDN),DHY AS DMYt.FLN'.I) AS FtU) 
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1650 DMY = DHY + FLNU) 
1660 GOTO 1680 

1670 mi) = SPACE$(FLN<I5) 'Field types don't 90 in the buffer 

1680 next I 

1690 FIELD DFN(LDN),DMY AS DMY$.l AS ATTRIB$ 'ATTRIB* is a bit »ap 

3000 ' 

3020 ' * MAIN PROGRAM * 

3030 ' S*SC**<:!:S**S**«**M*******« 

30*0 ' 

3050 GOSUB 4190 'Get custoner to edit ihit selects 

3060 IF RC-. -1 THEN 3110 

3070 PRINT FNMS$("EXITING") 

3080 GOSUB 4120 "Close files 

3090 PL»i($=flID»(FU»:$.13> 'Strip of program mae 

3100 CHAIN LEFTttPLNKt, 12.i 'Return to chaining progras 

3110 IF DRN=0 THEN GOSUB 4790 aSE GOSUB 4890 Inil nev or existing estrr 

3120 GOSUB 4700 'Print edit screen nask 

3130 IF DRN=0 THEN FLB=1: GOSUB 4600 'Edit fields now if new customer 

3140 PRINT FNrSXHS**'. SELECT OPTION"; 

3150 PRINT FNCP$':24.1); 

3160 PRINT "Field number to edit. Delete. Save, or Exit (#/D/S,E.i? "; 

3170 L=G:A$=" ": GOSUB 5480 'Field input At 

3180 IF RC=-1 THEN A»="E" 'Backup treated saae as Exit 

3190 IF VAL(A*)=0 THEN 3220 

3200 FLD=VAL(A$):GOSUB 4600 'Edit fields 

3210 GOTO 3140 

3220 IF LEFT$(A$,13=" " THEN A*=RIGHT$(A$. 1) ELSE A*=LEFT*(At, 1) 

3230 Sa = INSTftC'DSE-.A*; SEL = 1 for delete, 2 for save. 3 for exit 

3240 IF SEL=0 THEN PRINT FNMS$(" INVALID SELECTION*): GOTO 3150 

3250 ON SEL GOSUB 5020,5140 'Delete or Save (No action for Exitl 

3260 GOTO 3050 

4000 

4010 «■<?»>.« t. c:>. >: » i > > : >: «. > > > > «rHt? 

4020 ' * 9.W9JTINES 

4050 ' **««w h ! »k<«» ■ >«< »»*»» 

4040 ■' 

4050 Error nappu^ 
4060 ■• 

4070 GOSUB 4120 'Close files 

4080 CHAIN "ERROf ..ALL 

4090 

4100 'Close files 
41 10 

4120 IF miim THEN LWH=1: GOSUB 8800 'Close nae Vey file 
4130 IF mam THEN LKN=2: GOSUB 8800 'Close up key file 
4140 IF BPrtUXi THEN L»t=lf«jQSUB 7100 'Close Mil lisi data file 
4150 RE TURN 
4160 ' 

4170 <mt setsd 

um 

4190 NH$=SPACEt(FLNiNrW) i 
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4200 PRINT RCE8$v5):FNHS*i"'.> 

4210 PRINT FNCP$(5,l)i "Enter customer nam to search or add: "; 
422»> L=0:A*4W»:G0a.lB 5480:NH*=A* 'Input Ntt inm) 

4230 IF RC=-1 THEN RETURN 
4240 IF NM*=SPACE*(FLN(NMKFi) THEN 4210 

4250 CLN = FLNiWit r UN = Cc*>are Length for feae 

4260 WHILE CLNM AND HID$(NH»,CLN,1)=" " Get real length of naae 

4270 CLN=CLN-1 
4280 WEND 

4290 IF CUDKLU) THEN CLK=KLU) ELSE CLK=CUi 'CLK = Ccapare Length for Ke» 
4300 LKM=l:SKV$=lfn$(M»,KL(l)):a(P=0:G0S«B 75K? Search nase for Ke» 
4310 PRINT FNHSti "SELECT NAME FROM LIST'hGOSUB 4450 'Print hits on naw Ite* 
4320 PRINT FNCW(6,l);"Enter selection number or to add new na*e: *: 
4330 L=0:A$=»0 *:G0SUB 5480 Input At 
4340 IF RC=-1 THEN 4200 
4350 SEL=VAL(A$) 

4360 IF SEL=99 THEN 4310 'Print next page 

4370 IF SEL>=0 AND SEL<=NHIT THEN 4400 
4380 PRINT FN*S$("INVALID SELECTION") 
4390 GOTO 4320 

4400 IF SEL=0 THEN DRN=0 ELSE DRN=HRN(SEL) Set DRN=0 if a new customer 

4410 RETURN 

4420 . 

4430 'Print hits on the naae entry 
4440 

4450 NHIT=0:PRINT FJCES»<8's 

4460 WHILE LEFT$tFKv*.CLK)=tfFT*(SW,'*.CLK) AND NHIKHAXHIT 

4470 GET DFNUhFkP 'FKP = found feer Pointer 

4480 IF LEFT*(NM$,CLNrGLEFT$(F$(NMKF),CLN) THEN 4520 Conpare entire naae 

4490 NHIT=NHIT+! 

4500 PRINT USING "M *, fc";WIT;F*(NMKF>;F$(2; Print nana and title 
4510 HRNtNHIT)=fKF- 

4520 LHHtGOSUB 8670 Get nest key (FKP is returned) 

45:30 WEND 

4540 If LEFT*<FKV*UK)4.EFT*(SKV»,0Ju THEN PRINT "99 See next page" 
4550 IF NHIT=0 THEN PRINT "No matches, type 'if to enter a new naee," 
4560 RETURN 
4570 

4580 Edit fields 

Mm PRINT FNHSifHSt* . EDIT FIELDS ") 
4610 WHILE FLD>=1 AND FLD<=NF 

4620 L=fL(FLD):C=FC(FLD) Get line and eoluen for input 
46a> A$=F$tFU»:GQSUB 5480: LSET F$\FLD.-=A* -'Input F$iRD> 
4640 FLD=FLD+RC Return code detemins next field to edit 
4650 WEND 
4660 RETURN 
4670 ' 

4680 Print edit screen sask 
4690 

4700 PRINT FNCES$(5';FNCP*(11,1): "C^istooer attributes tV/Nn* 
4710 FOR FLD = 1 TO NF 
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4720 PRINT ™cP*(FL(FLD:i,FK(FLD)):FD*(FLD.> 
4730 PRINT FNEKT$(FL (FLO) , FC(FLD) , F$ t FLD) i 
4740 NEXT FLU 
475) RETURN 

4760 ' 

4770 Initialize new customer 
4780 

4790 FOR FLD = 1 TO NF 

4800 LSET F«FLB> = Set all fields to spaces 

4810 NEXT FLD 

4820 LSET F$<NMKFi = NH$ Assume new nam? 

4830 0lt*$=SPAC£»«KLfl)>:O7K$=SPACEt(.»l<.2i) Set old k*rs to blanks 

4840 NS$ = "NEW CUSTOMER" 'Message for top line 

4850 RETURN 

4860 

4870 Initialize for existing customer 
4880 

489<) GET DFN(1.<,DRN Read in customer 

490(i ATTRIB=ASCtATTRIBt? Get bit usl 

4910 FOR FLD=6 TO 13 Convert bit Bask to fields 6 thru 13 

4920 IF (ATTRIB AND l'=l THEN LSET F$(FLD)="Y" &SE LSET F$<fW 
493C* ATTRIB=ATTRIB\2 Right shift one bit pssltioB 

4940 NEXT FLD 

4950 0NHK$ = L£FTt(F»(NNKFj.H(l.i; Set old name ke* 
4960 0ZK$ = LEFT$(F*(Z1PKF),H<2>> Set old zip key 
4970 HS$ = "CUSTOMER FOUND 1 ' Message for top line 

4980 RETURN 

4990 

5000 Delete customer 
50!0 

5020 IF DRN=0 THEN RETURN Customer nc>t in file vet 

5030 GOSUB 6900 Delete customer fro* data file 

5040 IF ON»:$=SFACttiKLil).i THEN :<»7t 

5050 LKN=l:OKV$=ON«X$:0KP=DRIi 

5060 GOSUB 8090 Delete name ke? 

5070 IF OZKt=SPAC£i(KL(l); THEN 5100 

5080 U:N=2:0m=0ZK$:0KF-DRN 

5090 GOSUB 8090 ''Delete zip ke* 

5100 RETURN 

5110 

5120 'Save customer 
5130 

5140 ATTRIB=0 

5150 FOR FLD=!3 TO 6 STEP -1 Convert fields 6 thru 13 to bit map 
5160 ATTRIB=ATTRIB*2 'Left shift one bit position 

5170 IF F$(FLD)="V THEN ATTR I B=i ATTRIB OR 1) Set bit » 1 for T 

5180 NEXT FLD 

5190 LSET AT TR I B$=CHR$ < AT ?F; i B ) 

5200 IF DRN=0 THEN LDN=1:G0SUB 6710 Get a new record if new customer 
5210 PUT DFNil.i.DRN 

5220 OKP=DRN:NKP=DRN Set Old and New key Pointers for next two GOSUBf 
5230 LKN=1 : 0KV$=0NHK$: NKV$=LEFT$ (F$(MKF ) , Set new name key 
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5240 IF 0KV$<>NKV* THEN GOSUB 5310 Save na*e Ke f 

5250 LKN=2:OKV$=OZK$:Ni<V$=LEFT$iF$!2IPKF.i,KL(2i' Set new zip ke> 

5260 IF 0KV$ONKV$ THEN GOSUB 5310 Save rip kei 

5270 RETURN 
5280 

5290 Save key 

5300 

5310 IF DKV»=3PACE$(KL(U«» THEN SEL=0 ELSE S&=! 
5320 IF NKV*OSPACE$(KL(LKN» THEN S0=Sa+2 

5330 ON SEL GOSUB 8090,8260,7870 Delete, Insert- or update key 

5340 RETURN 

5350 

5360 Bracket input 
5370 Input: 

5380 A$ = String to input (Length set) 

5390 L,C = Line and column fora input. (L=0 for current position) 

5400 CC$ = Cursor comiand characters 

5410 RC$ = Return characters 

5420 ' RCO = Return codes (one for each char, in RC*) 
5430 

5440 ' Output: 

5450 At = New input is same length. 

546* RC = Return code specified in RC( ' array. 

5470 ' 

5480 SL=tENCA$):I=l 

5490 IF L>0 THEN PRINT HCWO-Os Position cursor for input 

5500 PRINT "t";A»;"J";STRING»Catl.BS*>: • Print string for input 

5510 CHt= I NPUT $ '. 1 ' Get one char, of input 

5520 ON INSTR(CC*,CH*) GOTO 5610,5630,5650,5680 'Search for cursor control 
5530 IF INSTRtRtt.CH*; > THEN S58C- Search for return code 

5540 IF CH*<" ■ THEN PRINT BELL*: .-GOTO 5510 No control char;, 
555* MD*(A*,I,1)=CH*:PRINT CH$: Char to A* and screes 

5560 IF KLEMA*) THEN 1=1+1 ELSE PRINT BS$; 'Check bounds 
5570 GOTO 5510 

5580 RC = RC(INSTR(RC*,CH*)) 'Get return code 

5590 PRINT CHR*U3>; 'Show sok response 

56-00 RETURN 

5610 IF I>1 THEN I=I-1:PRINT BS*; Backspace char, trap 

5620 GOTO 5510 

5630 IF KLEN(A*) THEN PRINT MB* (A*. 1,1;:: 1=1+1 Right character 
5640 GOTO 5510 

56.50 M»<A$,I)=tHBKA$.j+l>+* " Delete char, trap 

5660 PRINT MD*(A*.I):STRlNG*!.SL-I+I.R3*.i; 
5670 GOTO 5510 

5680 MID*(A*,I)=" "+HlD$(A$,I.i Insert character 

5690 PRINI HID*(A$,1);STRING$(SL-I+1.BS$.: 

5700 GOTO 5510 

All that is necessary to change the number of fields in the records 
is to change the data in line 1110. This line must reflect the number of 
fields you added or deleted. In addition, if you change the order of the 
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fields, you will have to change the values of NMKF ("name key 
field") and ZIPKF ("ZIP code key field") in line 1460. You can change 
the three constants NKF ("number of key files"), NDF ("number of 
data files"), and MRL ("maximum record length") if you modify the 
program. 

The number of customer attributes may be reduced or enlarged, 
and, of course, the attributes themselves may be changed by chang- 
ing the program data section. As many as 15 attributes can be 
handled without much modification. If more than eight attributes are 
used, the ATTRIB$ field will have to be two bytes in length. You will 
also need to change the CHR$-ASC conversions to MKI$-CVI conver- 
sions whenever ATTRIB$ appears. Figure 21-2 shows the screen 
mask used with this program. 

Program Analysis 

The first section of the program (lines 1110 through 1180) contains 
all the data for the placement of the brackets. It also designates the 
field titles for each set of brackets. 

Just as with the menu driver, the next section, lines 1260 through 
1690, initializes the variables that are used exclusively in this pro- 
gram. There is only one new user-defined function in this program. 
Line 1300 contains the function FNCES$, or "clear to end of screen." 
This function clears the screen from line L through line 24. Line 1470 
takes care of initializing the keyed-file system section of the program. 



— Mail List Editor — 

1) Customer name [ ] 

2) Title [ ] 

3) Address line 1 [ ] 

4) Address line 2 [ ] 

5) ZIP code [ ] 

Customer attributes (Y/N): 

6) Credit [ ] 7) Check card [ ] 8) Cash only [ ] 
9) Employee [ ] 10) Courtesy [ ] 11) Products [ ] 
12) Services [ ] 13) Time [ ] 

Field number to edit, delete, save, or exit without saving (#/D/S/E)? [ ] 



Figure 21-2. 

Screen mask for Mailing List editing 
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The main program controls the transfers to the subroutines for 
the implementation of the various tasks required by the program. 
Notice that line 3090 strips the name of this program from the 
PLNK$ string when returning to the menu. 

SUBROUTINES 

Many of the subroutines in this program are essentially those in 
the Payroll menu in Chapter 20. 

First of all, the subroutine in lines 4100 through 4150 determines 
which files are open and then closes them and returns to the main 
program. Lines 4170 through 4560 constitute the subroutine that car- 
ries out the hit select that was briefly described earlier in this chap- 
ter. The subroutine matches all names in the file that begin with your 
entry. The Print subroutine of this section (lines 4430 through 4560) 
prints the names that were found by the hit select subroutine. 

The subroutine in lines 5000 through 5100 deletes a current cus- 
tomer from the file. Note that the file system routines are used to 
delete both the data record and the two associated keys. Deleted 
records are reused when new customers are added. 

The subroutine in lines 5110 through 5340 writes the data for a 
new or existing customer to the files. If the customer already exists 
in the file, the new data is written back to the file. If the customer is 
new, the file system is called to return a new record number. Deleted 
records are used before the data file is expanded in length through 
the addition of a new record. The name and ZIP keys may also be 
added to or updated by the file system. Lines 5290 through 5340 save 
new or updated customer data. They determine which of four possi- 
ble actions needs to be taken in regard to a given key: do nothing, 
delete the old key, insert a new key, or update the current key. 

Mailing List Print Program 

The Mailing List Print program (MLPRINT.BAS) prints the 
mailing labels from the data maintained by the program MLEDIT. 
BAS. As usual, we will go through the programs by modules, but this 
time we will look only at those lines that must be changed when the 
program is modified. We will also briefly examine modules that are 
new to this program. Much of this program is similar to the Mailing 
List Editor. 
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1 goto to 

2 save "mmnvim 

4 SAVE "HLPRINT " r A: END 

6 SAVE *IHPftlW":RUN "INIT" 

io reh =- -*mritm**- 

20 REH =- Mail List Label Printer 

30 m =- ver l.O (16/11/83 

40 REM =- 

50 COMMON ttl$.CS$,Hf:i,^$,SB$.at.B'5*,EELL$.FF$.C»,a^t.MLNKtJiATE*,DR5 

1000 

1020 * PROGRAM DATA * 

1030 ' K»ttK**tt^iHHtt*ttK*X**je»*«* 
1040 

1050 DATA 7. 1 ■ 10, "Pref ered",7. 15. 30, "Pars cash- 

1060 DATA 7.35,48, "Deadbeat", 7,53.69. -Sap* 

1070 DATA 8, 1 , 10, "Hiatan* ,8, 15, 30, "CrcHtofMB* 

1080 DATA 8,35, 48. "Htagr.in\S,53,69. 'Neanderthal' 

1090 ' 

1 1 00 ' IfltTfltlfmttHiitltltltltltlfKM KH i ll ll M W HH M l CM ir r i lH 
1110 * PROGRAM INITIALIZATION * 

i 120 ********** ********************£****** 

1130 ' 

1140 'Define functions 
1150 

1160 DEF1NT A-Z 

1170 ON ERROR GOTO 4070 

1180 DEF FNCP$(L,C)=CLI$+CHR*(L+31}+CHRt(C+3h 

1190 DEF FNCE$(L,M$)=FNCF'$iL,(30-LEN(M$))\2}+Mt 

1200 DEF FNMS$(M$)=HC$+a*+SPACE$( (80-LEN(M»))\2)+SFt+M$+SB* 

1210 DEF FNEKT$(L,C,M$)=FNCP$(L,C)+"[*tfl$+"]- 

1220 DEF FNSTOPPRT = (INSTRC XxMNKEY*) > 1.1 

1230 ' 

1240 'Initialize variables and open files 

1250 

1260 PRINT CS$fFNCE$(3,*- MAIL LIST LABEL PRINTER -»} 

1270 PRINT FNMStCONE MOMENT PLEASE. ...") :PRINT 

1280 RC$=CHR$ (13) +CHR$ ill) +CHR$ ( 27 ) 3 Return characters 

1290 DIM RC(3):RC(l)=l:RC:(2.t=-l:RC<3)=999 '3 Return codes 

1300 DIM FL(8),FC(8).F$<8) Dissension to 8 attributes 

1310 ACROSS = 2 'Number of labels across 

1320 'VERTICAL = 6 Line spacing froe top to top of labels 

1330 DIM COL(ACROSS) Set up tab locations for each label 

1340 FOR I = 1 TO ACROSS 

1350 C0LU> = <I-1)*35 + 5 Initialize coluan positions for labels 
1360 NEXT i 

1370 Mf=l:NDF=l:NM.=105:G0a» 6250 'Initialize the file srsies 

i380 

IWv Zip re* file 

1 400 UCN= 1 : KFNM$=DR$+ "ZIP. KEY " : KL ( 1 ) =5 
1410 OOSUB 7300 Open zip key file 

142U ' 
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1430 ' Mail list data 

1440 LDN=1: [fNt1t=DRt+"HL.BAT !; : RL ( 1 )=105 

1450 GOSUB 6450 'Open link list data file 

1460 FIELD DFN(LDN) ,25 AS CN»,25 AS CTTLt, 25 AS ADRlt. 

20 AS ADR2t,9 AS ZIP*, 1 AS ATRIB* 

1470 ' 

1480 PRINT FNCPt (5.1); "Print custom with any of the attributes narked V 

1490 FOR FLD = 1 TO 8 

1500 READ FL(FLB),FDC,FC(FLB),FDt 

1510 PRINT FNCPt (FL (FLD) ,FDC) ;FDt Print serein nst 

1520 F*(FLD) = " " 'Initialize attribute fields 

1530 PRINT FNBKTt(FL(FLD),FC(FLD),Ft(FU))) 

1540 NEXT FLD 

3000 ' 

3020 ' * MAIN PROGRAM * 

3030 ' ^WMHHBHHHHHHHHm********* 

304O 

3050 PRINT FWS*( "SPECIFY !Y)ES OR (N)0") 

3060 GOSUB 4320 'Edit attributes to be prirtted 

3070 IF RC = -1 THEN 3430 Exit progra* 

3080 IF ATRIB>0 THEN 3110 

3090 PRINT FNMStCYOU MUST HAVE AT LEAST ONE ATTRIBUTE MARKED AS [YJ"i 

3100 GOTO 3060 

3110 PRINT FNMS*( "SELECT OPTION") 

3120 PRINT FNCPt(24,i): 

3130 PRINT "(A)lignnent mask, (E)dit attributes or (P)rint labels (A/E/P)? " 
3140 L=0:At=" " : GOSUB 4770 'Field input At 

3150 IF RC: = -1 THEN A*="E" 'Backup treated sane as (E)dit attributes 

3160 IF A$ = "E" THEN GOTO 3050 Edit fields 

3170 IF A* = "A" THEN GOSUB 4180:G0T0 3120 'Print alignment sasfc 

3180 IF At <> "P" THEN PRINT FNMSt'." INVALID SELECT ION*): GOTO 3120 

3190 

3200 PRINT FNCP»(24. 1 ) ; CL*: FNHS*t "PRINTING LABELS, PRESS 'V TO STOP PRINT") 
3210 LKN=1: GOSUB 8520 Get first zip key (FKP is returned) 
3220 ABORT = 

3230 WHILE FKP <> AND NOT ABORT 
3240 COUNT = 

325Ci WHILE COUNT < AMES AND F»P <> FKP = at end of key file 



326* GET DFN(LDN.i.FKP 

3270 IF (ATRIB AND ASC (ATRIB*)) = THEN 3360 

3280 COUNT = COUNT * 1 

3290 LBL*(1. COUNT) = CNMt 

3300 IF CTTLt=SP ACE* ( LEN ( CTTLt ) i THEN 3330 Check if no title 

3310 OFSET = l:LBLt(2.C0UNT) = CTTLt 

3320 GOTO 3340 

3330 OFSET = 0:LBLt(4,C0UNT)= uu 

3340 LBLt ( 2+OFSET , COUNT ) = ADRlt 

3350 IJl*(3+GFSET.C0lWT) = ADR21+" "+ZIP* 

3360 LKN=1: GOSUB 8670 'Get next key (FKP is returned) 



3370 WEND 

3380 GOSUB 4470 'Print labels across 
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3390 IF FNSTOPPRT THEN GOSUB 4530 'Stop print or continue-' 
3400 WEND 

3410 IF ABORT THEN 31 1ft 

3420 

3430 PRINT FNMStt "EXITING") 

3440 GOSUB 4120 Close file: 

3450 PLNK$=MBi(PLNK*,13) Strip of program aarae 

3460 CHAIN LEFT$(PLNK$, 12) Return to chaining progra* 

4000 

4010 *if**««M*<*£«-e***it****t 

4020 * SiJBROUTINES 

4040 

4050 'Error trapping 
4060 

40/0 GOSUB 4120 Close files 

4080 CHAIN "ERROR",, ALL 

4090 ' 

4160 Close files 
4110 

4120 IF KFNil)>0 THEN LKN=l:GOSUB S800 Close zip key file 
4130 IF DfN(l«>0 THEN UN=1:G0SUB 7100 Close wil list Qi'i file 
4140 RETURN 
4150 ' 

4160 'Print alignment isask 
4170 ' 

4180 ZZ$ = STRING*<25,\") Use dots for alignnent 

4190 LSET CNM* = "NAME"+ZZ$:LSET CTTLt = "TITLEHZZt 

4200 LSET ADRlt - "ADDRESS 1*+ZZ$:LSET ADR2t = "ADDRESS 2"*2» 

4210 LSET ZIP* = "ZIP"*ZZt 

4220 COUNT = ACROSS 

4230 FOR I = 1 TO COUNT 

4240 LBLt ( 1 . I ) = CNHi: LBLt ( 2. I ) = CTTLt 

4250 LBL$(3.I) = ADRl$:LBLt(4,I> = ADR2t+" "+ZIPt 

4260 NEXT I 

4270 GOSUB 4470 'Print labels across 

4280 RETURN 

4290 ' 

4300 Edit fields 
4310 ' 

4320 FLD = 1 

4330 WHILE FLD>=1 AND FLD<=8 

4340 L=FL (FLD) : C=FC (FLD > Get line and colun far input 

4350 At=Ft<FLB):GOSUB 4770-.LSET Ft(FLD)=At 'Input Ft(FLD.< 

4360 FLD=FLD+RC Return code determines next field to edit 

4370 WEND 

4380 ATRIB = 

4390 FOR FLD=8 TO 1 STEP -1 

4400 ATRIB = ATRIB*2 'Shift bits left 

4410 IF F*<FLD)="r THEN ATRIB=(ATRIB OR 1) 'Bit = 1 for "Y", otherwise 

4420 NEXT FLD 

4430 RETURN 
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4440 

4450 'Print labels across 
4460 

4470 FOR I = 1 TO < 

4480 FOR J = 1 TO COUNT 

4490 LPRINT TAB«COL(J))jLBL*( I. J): 

4500 NEXT J 

4510 LPRINT 

4520 NEXT I 

4530 LPRINT STRING*(VERTICAL-5, 10) Line feed down to next label 
4540 RETURN 

455*) 

4560 "Stop print or continue 7 ' 
4570 ' 

4580 PRINT FNCP$(24 F l);*iS)t<sp print or (Continue (S/Ci? 
4590 L=0:A*=* -"iGOSUB 4770 hp<J At 
4600 IF RC = -! THEN A*= ,! S : Backup treated sane as Stop 
4610 IF A* = ■ THEN 4580 

4620 ABORT = iA*= : 'S°) Set abort flag true or false 

4*30 RETURN 

4640 

4650 Bracket i&put 
4660 Input: 

4670 ■' Ai = String to input (length set, 

4680 ' L,C = Line and column form input. tL=0 for current position) 
4690 CCt = Cursor command characters 

4700 ■ RC* = Return characters 

4710 ' RCO = Return codes (one for each char, in RC*) 
4720 

4730 Output: 

4740 A* = New input is same length. 

4750 RC = Return code specified in RCO array. 

4760 

4770 SL=tEN(A*.):I=l 

4780 IF L>0 THEN PRINT FNCP*(L,C.); 'Position cursor for input 

4790 PRINT '[":M:°r;mmHVLn.m>: 'Print strin9 for input 

4800 CH*=IMPUT*<1S Get one char, of iwul 

4810 ON INSTR(CCt,CHt) GOTO 4900. 4920. 4940, 4970 Search for cursor control 
4820 IF INSTRtRCi.CH*) > THEN 4870 'Search for return code 

4830 IF CH*< a " THEN PRINT BELL*;: GOTO 4800 No control chars. 
484.) HID*(A*.I,1)=CH*:PRINT Ct»; Char to A* and screen 

4850 IF KLEN(At) THEN 1=1+1 ELSE PRINT BSt; Check bounds 
4860 GOTO 4300 

4870 RC = RCiINSTR(RC*,CH*).» Get return code 

4880 PRINT CHR$U3): Show so»e responce 

4890 RETURN 

4900 IF I>1 THEN I=I-1:PRINT BS*; Backspace char, trap 

4910 GOTO 4800 

4920 IF KLEN(Al) THEN PRINT MIDttA*. I, 1); : 1=1+1 Right character 
4930 GOTO 4800 

4940 HID*(At.b=flirt*iA*.I+l)+" " 'Delete char, trap 

4950 PRINT «ID*(A*,I);STRING*(Sl-I+l,BS*.: 
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4969 GOTO 4800 

4970 m»(A».I)=" »+ftID*CA*.Ii Insert character 
4960 PRINT ni»(M,U:SmiND»iSL-I+l,K$); 

4990 GOTO 4800 

In order to change the mailing label spacing requirements to fit 
your own label format, you only need to change ACROSS in line 1310 
and VERTICAL in line 1320. The FOR/NEXT loop in lines 1340 
through 1360 assigns the tab locations for the horizontal spacing. 

The WHILE/WEND loop in lines 3220 through 3390 sets up the 
array in preparation for printing the labels. Lines 3290 through 3350 
set up three address lines instead of four if no title or company name 
is contained in a customer's record. 

As in the Payroll program, it is worthwhile to print an alignment 
mask to verify that the printer output has the correct format. This 
subroutine prints one row of labels to allow you to adjust your printer 
accordingly. 

Finally, the subroutine in lines 4450 through 4540 does the actual 
printing. The values for all variables are assigned in the main pro- 
gram. Lines 4560 through 4630 interrupt the printing when either 
the capital or lowercase X key is pressed. The variable ABORT is 
then set to TRUE if you choose to stop printing. This causes the 
WHILE/WEND loop of the main program to terminate. 



Key File System 

This section, lines 6000 through 8840, contains the file subroutines 
for both the MLEDITBAS and MLPRINT.BAS programs. It must 
be appended to each of the programs with the exact line numbers 
shown. 

The comment lines at the beginning of each subroutine describe 
the input and output parameters for that particular subroutine. The 
remaining portion of each subroutine is also explained with the 
extensive use of remark statements. Those of you who wish to use 
these subroutines for your own applications will have to pay close 
attention to the input and output parameters for each of the 
subroutines. 

Our purpose here is to give you a ready-made tool to use in an 
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existing program, not to have you write a program using key files. 
Here is the listing of the file system subroutines: 

6000 

6010 'Set up data file and fe/ file variables 
6020 ' Input: 

6030 MJF = Nuaber of oat a files to be used. 

6040 NH = Hunter of key files to be used. 

605(i MRL = Maximum record length for data files. 

6060 Output (Following variables are iiwetavmin 

6070 DFN(NDF) = Data File ftuabers. 

6(«0 ' RUNDF.) = Record length for data flies. 

6090 R$(NDF; = Fielded as entire data file Record. 

6100 FS$(NDF) = Header field for File Status. 

6110 DSf(HOF) fc DS(NDF) - Header field for Deleted record Stick. 

6120 ' LRt(NDF) % LR(NDF) = Header field for Last Record in file. 

6130 NWiNDF) I NU(NDF.i = Header field for Number of Used records. 

61*0 ' 

6150 ' KFN(NKF) = Key File Numbers, 
6160 KL(NKF) = Key length 

6170 •• KRKNKFj = Fielded as entire Key file Record. 

6180 ' NKt(NKF) I WAm> = Header field for Number of keys in file. 

6190 -' KVt(NKF) = Fielded as Key Value. 

6200 ' t PI i NKF ) = Fielded as Key Pointer. 

6210 

6220 FIN = File number counter (Initialized at l.i 

6230 TB$ - Temporary storage duffer ilengtti set to fSL; 

6240 

6250 DIM DFN(NDF) , RUNDF). Rt(NDF) , FSt (NDF) , DS« (NDF).DS(NDF i 
6260 DIM LR$ ( NDF ) , LR ( NDF ) , NU$ t NDF ) , NU ( NDF ) 

6270 DIM KFN(NKF) ,KL(NKF .) .W»(«KF),NK$<»F) .MKUKFJ.KVf tKF hmilKF) 
6280 FIN=1:TB*=SPACE*(NRL) 
6290 RETURN 
6300 

6310 'Open data file (field buffer contents are lost J 
6320 Input: 

6330 ' LDN = Logical Data file Number 1 <= LDN (= NDF 
6340 • DFItt$ = File naise 

6350 RL(LDN) = Record length 7 <= RL(LPN) <= MRL 

6360 ' Output; 

6370 ' ERROR 200 if file was not closed properly. 

6380 ■ OS (LDN; = Top of Deleted record Stick. 

6:»} ' LRtLDN.i = Last Record number in file, 

6400 NU(LDN) = tuber of Used (not deleted) reccrd« 

6410 

6420 ' DS(LDN). LR(LDN), and HKLDN) are updated by each of the 

6430 ■' data file subroutines. 

6440 

6450 DFN(LDN)=FIN:FIN=FIN+i Assign a data file mater 

6460 OPEN "R" .DFB(LDW) , DFM1$ r RL(L£!W; •'Open file 

6470 FIELD DFW.LDNU AS FS*(LDN),2 AS DS$(LDN),2 AS LRKLMB.2 45 fW.LBN) 



Mailing Labels 395 



6480 FIELD DFN(LDN),RL(LDNj AS R$(LDN) 'R$ 15 the whole field buffer 
6490 IF LOF(DFN(LDN>)=0 THEN 6520 Check if file 15 new 

6500 GET DFN(LDN.U Get header record of old file 

6510 GOTO 6560 

6520 LSET FS*(L0N)="C" 'Set new file as closed properly 

6539 LSET Lf»(LWJ=fKI*(l) 'New file, initialize header rdeorp 

6540 LSET DS$t.LDN3=fKI$(0.i Set Deleted record Stack tO=nwe; 
6550 LSET NU$(LDN)=MKW0i 'Set # records in use to 

6560 LR(LDN)=CVI (LR$(LDN) ) Get Last Record for progras use 

6570 DS(LDH)=CVKDS*(LDN)) Get record from Deleted Stack, 

6580 NU(LDN)=CVI(NU$(LDN)) Get Number Used data records 

6590 IF FS$(LDNiO"C" THEN ERROR 200 Make sure file was (Olosed 

6600 LSET FS$(LDN)="0" Set file to (Olpen mode 

6610 PUT OFN(LDN). i Write header record 

6620 RETURN 

6630 

6640 Get a new record returned in DRN (field buffer saved) 
6650 Input: 

6660 LDN = Logical Data file Number 

6670 ' Output: 

6680 ERROR 201 if new record is already jb use. 

6690 DRN = New record number for us? 

6700 

6710 IF BS<LDH)=0 THEM 6790 'Check if am delete records to ust 

6720 LSET TBt=f»(UN3 Sa/-: buffer 

6730 GET DFN(LDN),DS(LDNJ 'Read delete record 

6740 IF FS*<LDNK>CHRK255> THEN ERROR 201 'Cheek deleted fias 

6750 DRN=DS(LDN) 'New record nusber goes in DRM 

6760 DS(LDN)=CVI(DS*(LDN)> Get new OR from link in record 

6770 LSET R$(LDN)=TB* 'Restore buffer 

6780 GOTO 6810 

6790 LR(LDNi=LR(LDN)+l No records for re-use, add on to the end 

6800 DRN=LR(L0N) 

6810 NIJ(LDN)=NU(LDN)+1 Increment ft of utilized records 

6820 RETURN 

6330 

6840 'Delete a record nusber (field buffer saved; 
6850 ' Input: 

6860 DRN = Record water to delete 

6870 Output: 

6880 ' ERROR 202 if record DRN is already deleted 

6890 

6900 IF DRN=LR(LON.i THEN 7000 'Check if deleting last record 

6910 LSET TB*=R$(LDN) Save file buffer 

6920 GET DFN(LDN),DRN Get record to delete 

6930 IF FS1(L.DN)=CHR$(255) THEN ERROR 202 'Check if already deleted 

6940 LSET FS*<LBN)=CHR$(255) Flag record as deleted 

6950 LSET DS$(LDN)=HKI$(D8(LDN)) Store deleted record number link 

696* PUT DFN(LDN) , DRN Delete record 

6970 DS(LDN)=0RN Set DR = last delete record 

69S0 LSET R*(LDN)=TB* Restore file buffer 

6990 GOTO 7010 
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7000 LR<LDN)=LR(LDN)-i Delete last record in file 

7010 WJ(LDN)=NU(LDN'-1 Decrement * of utilized record; 

7020 RETURN 
7030 

"040 Close data file (field buffer lost* 
705*) Input: 

7060 " LDN = Logical Data file Number to close. 
7070 ' Ouput: 

7080 ' miim, LR$U.DN), and NUtiLDN) are written to header record 
7090 

7100 LSET FS$(LDN)=*C" Set file status as iCUosed 

7110 LSET OS*<LDN)=HKI*f.DSai)N>> Set (op of delete record s'.ac' 

7120 LSET LR$(LDN)=#:i$(LR(L0h).i Ssi last record in use 

7130 ISO f».f»fLDNT=»:i*(HUaDN>i Set r-usoer of utilized record; 

7140 PUT DFNtLONhl "Write out header record 

7150 CLOSE DEN (LDN) 
71 60 RETURN 



7170 ' 






7180 'Open key file 




7190 ' 


Input: 




7200 ' 


Ltti 


= Logical Ke? file number to open. 


7210 ' 


mm 


= Data File Name 


7220 ' 


KKLKN' 


= Key length. KL(LKN) >= 3 


7230 ' 


Output: 




7240 ' 


ERROR 203 if fiie was not closed Froperly, 


7250 ' 


NKtLKNj 


= Ntaber of Keys ir, file. 


7260 ' 
7270 ' 


KRN 


= Internal key record pointer initialized 


7280 ' 


NK.i.LKNj is 


updated bv each of the Ley file subroutines 



7300 KFN < LKN) =F I N : F I N=F I N+ 1 Assign a key file nurter 

7310 OPEN n R".KFN(LKN) .KFIt»,KLiLKN)+2 Open file (+2 is for Lev pointer; 

7320 FIELD KFNtLKK > . ] AS. KFS$(LKN),2 AS NKttLKNj Header record 

7330 FIELD KFN(LKN),KL(LKN) AS KV$(LKN>,2 AS KPltLKN) Key and key pointer . 

7340 FIELD KFN(LKN),KL(LKN)+2 AS KRS(LKN) 'KR* is entire record. 

7350 IF L0F(KFN(LKN))=0 THEN 7380 Check if file is new 

7369 GET KFN(LKN),1 Get header record of old tile 

7370 GOTO 7406 

7380 LSET KFS$(LXN)="C* Set new file as closed properly 
7390 LSET NK»(U0O=NKI* £ .0) 'New file, set No. Keys to 
7400 ».(.LKN)=CV1(*:$(LKN>! 'Get Ntater of Keys for prograi use 
7410 IF KFS*(LKNX>"C" THEN ERROR 203 Make sure file was (C)Iosed 
7420 LSET KFS$(LKN)="0" Set file to (O)pen icde 

7430 PUT KFN(1_KNU Write header record 

7440 LSET KVttLKN>=":LSET KP*(LKN)=WI*(0j:KRN=0 Initialize ker fields 

7450 RETURN 

7460 ' 

7470 'Search for a key 
7480 Input: 

74*0 LKN = Logical Key file NuKber to search. 

7500 ' SXV* = Search Key Value. 
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7510 ' SKP = Search Key Pointer. 
7520 ' Output: 

7530 FKV» = Found Key Value (blank if not found). 

7540 FKP = Found Key Pointer (zero if not found). 

7550 KRN = Current Key Record Mutfw points to key founs or 

75-60 points to where key should be if it is not found. 

7570 ■ 

7580 SKR*=SKV$+f»:it(SKP> Search on key value + key Pointer 

75*0 LSET KV$(LKN;=":LSE1 KP$(LKN)=»:i$(0. 

7600 LE=2: HB=NKa LKN > + 1 : FKP=0 Set binary search bounds 

76i0 WHILE LB<=HB AND FKF-0 "Binary search the key file for SKR* 

7620 KRN=(LB+HB)\2 

765=) GET KFNUWO.KR* 

7640 IF SKR$=KR*(LKN.i THEN FUM38I 

7650 IF SKPt<KRti.LKN'i THEN HB=KRN- 1 ELSE LMRN+l 

76*0 WEND 

7670 IF S<R*<=*CR*i.L»ij THEN 7730 If no enact Batch we Mist point to 

7680 Umm*\ the snailest key greater than SKRt 

7690 IF KRN>NK(LKNi+l THEN 7720 'Check if SKR* greater than all keys 
7700 GET KFN(LKN),KRN 

7710 GOTO 7730 

7720 LSET KVitUM^'sLSET KP$(LKN)=HKI$<0> Search found end of file 
7730 FKV$=KV$(LKN):FKP=CVI(KP$(LKN)) Set returned variables 
7740 RETURfc 

7750 ' 

776* %dati key and pointer 
7770 ' Input: 

7780 •' LKN = Lexical Key file Nunber to update, 
7790 ' 0KV$ = Old Key Value to De updated. 
7800 •' OfcP = Old Key Pointer to be updated. 
7810 ' NKV* = New key Value after update. 
7820 ' NKP = New Key Pointer after update. 
7830 ' Output: 

7840 ' ERROR 204 if key to update was not found in ke* file, 
7850 ' KRN will point to the updated key. 
7860 ' 

7870 m^MMimMiiMH*m*m.W.m > 'Construct key records 
7880 SKV*=«W:»1»=0I3»:G0ST* 7586 Search for old ker 

7890 IF 0KR$OKR*(LKN) THEN ERROR 204 Error if Old key not found. 

7900 IF 0KR$>NKR$ THEN DIR=-1 ELSE DIR=1 Set direction for WHILE loos 

7910 GET KFN'LKfD.KRN+BIR Slide a block of key; em 

7920 WHILE KRN+D1R>1 AND KRN+DIR<NK(LKN>+2 AND (KR$(LKN>>NKR$ X0R WOOO) 

7930 put mam).m 

7940 KRN=KRN+0IR:GET KFNt.LKN).KRN+DIR 
7950 WEND 

7960 LSET KR$(LKN)=NKR$ 'Write new key 

7970 PUT KFN(LKN),KRR 
7980 RETURN 

799!!! 

8000 'Delete key 
8010 Input: 



• i ic iviu/ uiv- i lot IUUUUK 



8020 ' LKN = Logical Key file Number. 
8030 ' W% = Old Kev Value to delete. 
8040 C*P = Old Key Pointer to delete, 

8050 Output: 

8060 ERROR 205 if key to delete was not found in key file. 

8070 KRN = Will point one past end of key file. 

8080 

8090 SKV*=0KV$:SKP=OKP 

8100 G0SUB 7580 'Search for old ke- 

8110 IF 0KV$OFKV$ OR 0KPOFKP THEN ERROR 205 Error if Old key not found. 
8120 FRN=KRN: LRN=NK ( LKN ) : B I R= 1 DIR is direction to move block. 

81.30 G0SUB :3380 'Move block left one position 

8140 NK(LKN)=NK<LKN>-1 One less key in key fik 
8150 RETURN 
8160 ' 

8170 Insert key 
8180 Input: 

8190 ' LKN = Logical Key file Number. 
8200 ' NKVt = New Key Value to insert. 
8210 ' NKP = New Key Pointer to insert. 

8220 ' Output: 

8230 ERROR 206 if t?y and pointer already exist is ke» file. 

8240 KRN = Will point to the inserted key. 

8250 

8260 8KV$=NKV$:SKP=NKP 

8270 G0SUB 7580 Search for old key 

8280 IF KV$(LKN)=SKV$ AND CVHKP*iLKH))=SKP THEM ERROR 206 

8290 FRN=NK(LWi)+2:LRN=HWtl:DIR=-i DIR is direction to tovs block 

8300 G0SUB 8380 Hove block right one position 

8310 LSET KVt(LKN.)=NKV$:LSET KP$(LKN)=MKI$(NKP> 

8320 PUT KFN(LKN),KRN 'Write out new key 

8330 NK(LKNj=NK(LKN>+1 One sore key in t:e* file 

8340 RETURN 

8350 

8360 'Hove bloc! (used by delete and insert only* 
8370 

8380 FOR KRN=FRN TO LRN STEP DIP 
8390 GET KFN'LKWj.KRN+DIP 
840) PUT KFN(LKN).KRN 
8410 NEXT KRN 
8420 RETURN 
8430 

8440 Get first key 
8450 " Input: 

8460 ' LKN - Logical Key file Number. 
8470 Output: 

8480 FKV$ = Found Key Value of first key in file (blank if no kers). 

8490 FKP = Found Ksy Pointer of first key in file (0 if no keys). 

8500 KRN = Points to first key f if any). 

8510 

8520 IF MK(LKN)=0 THEN 8550 Check for no keys in file 

8530 KRN=2:GET KFN(LKN),KRN 
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8540 GOTO 8560 

8550 LSET Kv*(LKN)="":LSET KP*(LKN>=MKI$((0 First key is end of key file 
8560 HCVt=*W(LKM):FKP=CVI (KP$(LKN) ) 
8570 RETURN 
8580 ' 

8590 -'Get next kit 
8600 Input; 

8610 ' m = Logical Key file Number. 
8620 Output: 

8630 FKV* = Found Key Value of next key in file (blank if no sore keys) 

8640 ' FKP = Found Key Pointer of next key in file (0 if no more keys) 
8650 KRN = Points to next key Hi any) 

8660 ' 

86.70 IF KRN>NK(LKN)+i THEN 8700 Check if for end of key file 

8680 KRN=KRN+1:GET KFN(LKN),KRN 
8690 GOTO 8710 

8700 LSET KV$(LKN)="":LSET KP$(LKN)=MKI$(0) Next Key is end of key file 
8710 FKVt=KV$(LKN) :FKP=CVI (KP$i.LKN) > 
8720 RETURN 
8730 

3740 Close key file 
8750 Input: 

8760 LKN = Logical Key file Number to close. 

8770 ' Output: 

8780 Key file status and size are written to header record 

3790 

3800 LSET KFS$(LKN)= ; C" Set file status as Closed 

8810 LSET NK$(LKN)=MKlt(l*:(LKN).i 'Set last delete record 

8820 PUT KFNiLKNM Write out header record 

8830 CLOSE KFN(LKN) 
8840 RETURN 




User Documentation 



When the term "documentation" has been used in this book up to 
this point, it has always meant the comments the programmer makes 
in describing the purpose of a single line or section of code in a pro- 
gram. MBASIC requires that these comments be prefaced by the 
REM statement or its abbreviation, the single quotation mark ('). 
This type of documentation is intended for a programmer— that is, 
either for the one who wrote the program or for another programmer 
who may have to modify the program. 

Another equally important type of documentation is that intended 
for the program user. More often than not, users of programs have 
little or no interest in how or why a program works. To users, the 
program is only a tool for getting results. 

Imagine that you have finished your first program intended for 
use by someone else. You have spent hours entering every possible 
combination of data, and you have done the systematic debugging so 
that the last bug has been eradicated. Now you are ready to write the 
user documentation. 

The first step is to think of your audience, the person who will use 
the program. Normally, this will not be another programmer or 
technical person familiar with computer terminology. Unless you 
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know the specific audience, you should assume no background in 
computers on the part of your audience when you write your 
documentation. 

Documentation varies depending on the complexity of the pro- 
gram, but in all cases, it will have at least three parts: first, an intro- 
duction giving an overview explaining what the program does and 
what results to expect; second, an explanation of how to use the pro- 
gram, including how to load, start, and end the program; and third, 
examples of the screen and program output. 

To illustrate how you might go about writing these three parts, we 
will write the user documentation for the inventory program from 
Tutorial 15-1. 



Introduction 

INVENTRY.BAS is a program that allows you to maintain an 
inventory. This program allows you to do six things: first, to inspect 
the information on an existing item; second, to enter new items; 
third, to edit data on an existing item; fourth, to record a sales trans- 
action; fifth, to enter information on a purchase transaction; and 
sixth, to list all items below a set reorder level. 

The items in the inventory are stored in a disk file. The number of 
items that the program can handle is therefore limited to 32,768 
parts or by the storage capacity of your disk system. For each item in 
the file, there are five types of information stored. They are item 
number, item description, quantity on hand, reorder level, and unit 
purchase price. 

Item numbers for each item are automatically entered by the 
computer. Each time a new item is added to the inventory list, the 
computer assigns that item the next available item number. The de- 
scription field allows you to enter up to 30 characters. For example, if 
you are entering ribbons for an NEC printer, you might enter 
RIBBONS, NEC-3500, 6/BOX for the description. The next two 
fields, quantity on hand and reorder level, may contain any integer 
up to 999999. The final field is price per unit; it may contain any 
number up to 9999.99 but may not contain a dollar sign. None of the 
fields that contain numbers may contain a comma. 

All screens show both the computer's messages (normal print) and 
your input (shaded print). 
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Loading the Inventory Program 

In order to run INVENTRY.BAS, place the disk containing 
MBASIC in drive A and the disk containing INVENTRY.BAS in 
drive B. Log onto drive B and type 



Program Operation 

As soon as MBASIC and the program have been loaded, the pro- 
gram automatically starts and presents you with the menu shown in 
Figure 22-1. Each time the program is run, the number of items in 
the file is indicated above the menu. 

In order to make your selection from the menu, enter the number 
you wish and press RETURN. 

Now let's consider each selection in order. 

SELECTION 1 — QUERY AN EXISTING ITEM 

When you choose selection 1 from the menu, you are first asked to 
enter the item number. When you enter the item number and press 
RETURN, the screen displays the following: 

Enter part number to query: 2 

Part mrnber 2 Description: 1-19 
Quantity on hand: 5 
Reorder level: 3 
Price per unit: 656.5 

Press <RETURN> to continue... 

The information stays on the screen until you press RETURN to 
continue. Pressing RETURN returns you to the menu. 



SELECTION 2 — ENTER A NEW ITEM 

Choosing selection 2 will first display on the screen the next item 
number to be entered. The word "Description" will be followed by the 
message New Item, and the cursor will appear after the colon to 
indicate that you should enter a description of this new item. After 
entering the description, press RETURN. The next question will be 
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There are 8 parts on file. 



Choose one of the following functions: 


1 


... Query an existing part 


2 


... Enter a new part 


3 


... Edit an existing part 


4 


... Sales transaction 


5 


... Purchase transaction 


6 


... List parts below reorder level 


7 


... End program/close file 



Selection number: 



Figure 22-1. 

Initial menu for INVENTRY.BAS 



presented, with the cursor waiting after the colon for your input. The 
screen with all entries filled in (shaded text) is shown here: 

Part nuntoer: 9 (Push return for no cnanqej 
Description: NEW PART : Drsan diskettes 

Quantity on hand: : 25 

Reorder level: : 5 

Price per unit: 

More parts to enter WN>? N 

Pressing Y clears the screen and allows you to enter information 
on a new item. Pressing N returns you to the menu. 

SELECTION 3 — EDIT AN EXISTING ITEM 

When you choose selection 3 from the menu, you will again pro- 
ceed through the questions one by one. You will be shown the current 
information stored in the computer, and you will be allowed to 
change this information if you wish. For example: 

Enter Part nusber to edit: ? 
Part nunber: 9 (Push return for no change, 
description: Dysan diskettes 
Quantity on hand: 25 
Reorder level: 5 
Price per unit: 5.00 

More parts to edit (Y/N) ? 1 



If no change to a field is required, press RETURN. This causes the 
information displayed to be retained and the program to display the 
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next question. In this case, the price per unit was changed from 5.00 
to 6.00. When you have answered all of the questions or pressed 
RETURN instead, you will receive the query More items to edit. If 
you choose Y, you will be asked to enter an item number to edit. If 
your response is N, you will be returned to the menu. 

SELECTION 4 — SALES TRANSACTION 

Selection 4 centers around an actual sales transaction. On choos- 
ing selection 4 from the menu, the first thing you will be asked to 
enter is the number of the item you wish to sell. The screen will then 
display the current information on the item. At that point, you will be 
asked for your second entry, which is the number of units you wish to 
sell. For example: 

Enter part number to sell: 9 

Part number 9 Description: Dvsan disk-ettes 
Quantity on hand: 25 
Reorder level: 5 
Price per unit: 6.00 

Enter nweer of units to sell: 4 
There are now 21 units in stock. 

(lore Parts to sell (Y/JU? tt 

On pressing RETURN after your second entry, you will be pre- 
sented with the number of units now in stock and asked if there are 
more items that you want to sell. Again, pressing Y will restart the 
process, and N will return you to the menu. 

SELECTION 5 — PURCHASE TRANSACTION 

When you choose selection 5 from the menu, you will be asked to 
enter the part number of the item you wish to purchase. The infor- 
mation stored in the computer will then be presented on the screen, 
and you will be asked to enter the number of units you wish to pur- 
chase. For instance: 

Enter part number to purcnase: t 

Part number 9 Description: Drsan diskettes 
Quantity on hand: 21 
Reorder level: 5 
Price per unit: 6.00 



Enter number of units to purchase: 10 
There are now 31 units in stock. 



More parts to purchase (Y/N)? N 

When you enter your response after the question mark and press 
RETURN, the screen will display the number of units currently in 
stock. It will also ask if there are more items you wish to purchase. 
Enter either Y or N. 

SELECTION 6 — LIST ITEMS BELOW REORDER LEVEL 

Choosing selection 6 from the menu will automatically display on 
the screen a list of all the items that are at or below the reorder level 
set in the program. If the stock on hand is less than or equal to this 
preassigned value, additional items should be reordered. All the 
information contained in the file on each of these parts is displayed 
on the screen. 

Part number 1 Description: OSBORNE 

Quantity on hand: 1 

Reorder level: 2 

Price per unit: 1500 

»— > 1 below reorder level 

Part number 7 Description: TELEVIDEO. TERMINAL 
Quantity on hand: 2 
Reorder level: 2 
Price per unit: 675 
»— > At reorder level 

3 parts below reorder level 

Press < RETURN) to continue... 

The arrows in the screen display are intended to draw the opera- 
tor's attention to items that are at or below the reorder level. Once 
again you are asked to press RETURN in order to return to the menu 
and continue with the selections. 



SELECTION 7 — END PROGRAM/CLOSE FILE 

This final selection from the menu ends the program and closes 
the files. When all the files are closed, you are returned to Microsoft 
BASIC. Type SYSTEM to get back to CP/M. 
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Error Messages 

Regardless of the precautions you take, it is almost inevitable that 
the program will at some point encounter an error it cannot handle. 
In this case, it will transfer control back to MBASIC. If this happens, 
the next time the program is run, the screen will show the message 

Files not closed proper 1? 

If this message appears, choose selection 7, End program/close 
file. When you run the program again, notice the message at the top 
of the screen that indicates the number of records in the inventory 
file. If there are fewer records than you expect, you will have to reen- 
ter the lost data. 



IV. 

Appendices 



APPENDIX A: Format of Commands, 

Statements, and Functions 
APPENDIX B: Error Codes and Messages 
APPENDIX C: ASCII Codes 
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A 



Format of Commands, 
Statements, and Functions 

The format notation shown in this appendix is similar to that used 
in the Microsoft BASIC-80 Reference Manual. 1 The MBASIC key- 
words (statements, commands, and functions) are shown in capital 
letters and must be entered exactly as shown. Items in lowercase let- 
ters enclosed in angle brackets ( < >) are to be supplied by the user. 
For example: 

LOAD <filename>[,R] 

The LOAD keyword has to be entered exactly as shown. The filename 
is specified by the user, as indicated by the angle brackets. Square 
brackets are used in the format notation when the material enclosed 
is optional. In the previous example, the comma and R are optional. 
The R must be included if the comma is, since they are both in the 
square brackets. 

A vertical bar ( | ) indicates a choice for two or more items; in 
effect, the vertical bar means "or." For example: 

RESUME [0 | NEXT | <line number>] 



Microsoft BASIC Reference Book (Bellevue. Wash.: Microsoft, 1979). 
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This format shows four different uses of the RESUME statement. 
They are: 

RESUME 
RESUME 
RESUME NEXT 
RESUME <line number> 

The vertical bar means that the RESUME can be followed by or 
NEXT or <line number>. The square brackets mean that the 
RESUME statement does not have to be followed by anything. 

Curly braces ({ }) indicate that you have an option of two or more 
items for your entry but that one of the options must be chosen. Each 
option is separated with the vertical bar ( | ). For example: 

DEF{INT | SNG | DBL | STR} <range(s) of letters> 

In this case the curly braces mean that you must specify DEFINT, 
DEFSNG, DEFDBL, or DEFSTR. In contrast to the square 
brackets, the curly braces mean that you must specify one of the 
options. 

Items followed by ellipses (...) may be repeated any number of 
times up to the length of line. The maximum line length is 255 
characters. 

The word "list" inside angle brackets means that items are to be 
separated by commas. For example, a <list of variables> could be 
A,B,X$. 

All punctuation, except the square brackets ([ ]), the curly braces 
({ }), the vertical bar (|), and ellipses (...), must be entered as shown 
in the following formats of commands and statements. Of course, if 
the notation indicates an option of two or more punctuation marks, 
enter only the appropriate one. 

Format of Commands and Statements 

AUTO [<line number>[,<increment>]] 

CALL <variable name>[(<argument list>)] 

CHAIN [MERGE] <filename>[,[<numeric expression>][,ALL] 
[.DELETE <range>]] 

CLEAR [,[<expressionl>] [,<expression2>]] 

CLOSE [[#]<file number>[,[#]<file number>...]] 

COMMON <list of variables> 

CONT 
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DATA <list of constants> 

DEF FN<name>[(<parameter list>)] = <function definition> 

DEF USR<integer> = <address> 

DEFjINT | SNG | DBL | STR} <range(s) of letters> 

DELETE <line number>[-<line number>] 

DIM <list of subscripted variables> 

EDIT <line number> 

END 

ERASE <list of array variables> 
ERROR <numeric expression> 

FIELD [#]<file number>, <field width> AS <string variable>... 
FILES [filename] 

FOR <variable> = <numeric expression>TO<numeric expression> 
[STEP<numeric expression>] 

GET [#Kfile number>[,<record number>] 

GOSUB <line number> 

GOTO <line number> 

IF <expression> THEN [<statement(s)> | <line number>] 
[ELSE {<statement(s)> | <line number >}] 

IF <expression> GOTO [<line number>] 
[ELSE {<statement(s)> | <line number>}] 

INPUT [;][<prompt string>{; | ,}]<variable list> 

INPUT #<file number>,<variable list> 

KILL <filename> 

[LET] <variable> = <expression> 

LINE INPUT [;][<prompt string>{; | ,}]<string variable list> 
LINE INPUT #<file number>,<string variable list> 
{LIST | LLIST} [<line number>[-[<line number>]]] 
LOAD <filename>[,R] 

LPRINT [USING <format string>;][exprl[, | ;]...] 
{LSET | RSET} <string variable> = <string expression> 
MERGE <filename> 

MID$(<string variable>,<numeric expression>[,<numeric expression>] 
= <string expression> 

NAME <old filename> AS <new filename> 

NEW 

NEXT[<list of variables>] 
NULL <numeric expression> 
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ON ERROR GOTO <line number> 

ON <expression> {GOTO | GOSUB} <list of line numbers> 

OPEN <mode>,[#]<file number>,<filename>,[<record length>] 

OPTION BASE {0 | 1} 

OUT <port>, <numeric expression> 

POKE <address>,<numeric expression> 

PRINT [#<file number>,] [USING <format string>;][exprl[, | ;]...] 
PUT [#]<file number> [,<record number>] 
RANDOMIZE [<expression>] 
READ <list of variables> 
REM <remark> 

RENUM [[<new number>][,[<old number>][,<increment>]]] 
RESET 

RESTORE [<line number>] 
RESUME [0 | NEXT | <line number>] 
RETURN 

RUN [[<line number>]|[<filename>[,R]]] 

SAVE <filename> [,A | ,P] 

STOP 

SWAP <variable>,<variable> 

SYSTEM 

TRON 

TROFF 

WAIT <port><numeric expression>[,<numeric expression>] 
WEND 

WHILE <expression> 

WIDTH [LPRINT] <numeric expression> 

WRITE [#<file number>,][<list of expressions>] 



Format of Functions 

In the following function formats, X and Y are numeric expres- 
sions; X$ and Y$ are string expressions. 



ABS(X) 
ASC(X$) 
ATN(X) 
CDBL(X) 



CHR$(X) 
CINT(X) 
COS(X) 
CSNG(X) 
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CVI(<2-byte string expression>) 

CVS(<4-byte string expression>) 

CVD(<8-byte string expression>) 

EOF(<file number>) 

EXP(X) 

FIX(X) 

FRE({X|X$}) 

HEX$(X) 

INP<port> 

INKEY$ 

INPUT$(X[,[#]Y]) 

INSTR([X,]X$,Y$) 

INT(X) 

LEFT$(X$,X) 

LEN(X$) 

LOC(<file number>) 

LOG(X) 

LPOS(X) 

MID$(X$,X[,Y]) 

MKI$(<integer expression>) 



MKS$(<single-precision expression>) 

MKD $ ( <double-pr ecision expression >) 

OCT$(X) 

PEEK(X) 

POS(X) 

RIGHT$(X$,X) 

RND[(X)] 

SGN(X) 

SIN(X) 

SPACE$(X) 

SPC(X) 

SQR(X) 

STR$(X) 

STRING$(X,{Y | X$i) 

TAB(X) 

TAN(X) 

USR<integer>(<variable>) 
VAL(X$) 

VARPTR({<variable name> | 
#<file number>}) 



B 

Error Codes and Messages 



This appendix contains the complete list of error codes and mes- 
sages for MBASIC. A discussion of the most common errors and how 
you can avoid them is provided in Chapter 13, "Debugging Your 
Programs." 

The first column in Table B-l lists the two-character codes that 
are printed by earlier versions of MBASIC. The second column is the 
error code number used by the ERROR statement and ERR variable 
(see Chapter 13). The third column contains the error message 
printed and a brief description of the error. 
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Table B-l. 

Error Codes and Messages 



Code 


Number 


Message 


NF 


1 


NEXT without FOR 

A variable in a NEXT statement does not cor- 
respond to any previously executed unmatched 
FOR statement variable. 


SN 


2 


Syntax error 

A line has been encountered that contains some 
incorrect sequence of characters (such as an un- 
matched parenthesis, misspelled command or 
statement, incorrect punctuation). 


RG 


3 


RETURN without GOSUB 

A RETURN statement has been encountered 
for which there is no previous unmatched 
GOSUB statement. 


OD 


4 


Out of DATA 

A READ statement has been executed when 
there are no DATA statements with unread data 
remaining in the program. 


FC 


5 


Illegal function call 

A parameter that is out of range was passed to a 
math or string function. This error may also 
occur as the result of a negative or unreasonably 
large subscript, a negative or zero argument 
with the LOG function, a negative argument to 
the SQR function, a negative mantissa with a 
noninteger exponent, a call to a USR function 
for which the starting address has not yet been 
given, or an improper argument to MID$, 
LEFT$, RIGHT$, INP, OUT, WAIT, PEEK, 
POKE, TAB, SPC, STRING!, SPACES, INSTR, 
or ON/GOTO. 


OV 


6 


Overflow 

The result of a calculation is too large to be 
represented in MBASIC's number format. 


OM 


7 


Out of memory 

A program is too large, has too many FOR loops 
or GOSUBs, too many variables, or expressions 
that are too complicated. 


UL 


8 


Undefined line number 

A line reference in a GOTO, GOSUB, IF/THEN/ 
ELSE, or DELETE statement is to a nonexis- 
tent line. 
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Error Codes and Mess: 


ages (continued) 


Code 


Number 


Message 


BS 


9 


Subscript out of range 

An aryji v plpmpnt Viqq hppn TAfpy^pn/^pH pJthp»" 

All <Xl I ay '^ICIllC lit 1 1 oo UCCI1 I CICI CI1L-CU ClLllCl 

with a subscript that is outside the dimensions 
of the array or with the wrong number of 
subscripts. 


DD 


10 


Duplicate definition 

Two DIM statements have been given for the 
same array, or a uiivi statement nas oeen given 
for an array after the default dimension of 10 
was established for that array. 


/o 


11 


jjivision Dy zero 

A division by zero has been encountered in an 
expression, or zero is raised to a negative power. 
Infinity with the sign of the numerator is sup- 
plied as the result of the division, and execution 
continues. 


ID 


12 


Illegal direct 

A statement that is illegal in direct mode has 
been entered as a direct mode command. 


TM 


13 


Type mismatch 

n string vdrid-uie ridme nds ueen dssigneu a 
numeric value or vice versa, or a function that 
expects a numeric argument has been given a 
string argument or vice versa. 


OS 


14 


Out of string space 

String variables have exceeded the allocated 
amount of string space. Use the CLEAR com- 
mand to allocate more string space or to de- 
crease the size and number of strings. 


LS 


15 


String too long 

An attempt has been made to create a string 
longer than 255 characters. 


ST 


16 


S»f **i y\ nr t t\ I'm 11 1 q + r»/\»vii"kl v 
Oil lllg 1UI IHUlcl IUU HJlIIJJltrA 

A string expression is too long or too complex. 
The expression should be broken into smaller 
expressions. 


CN 


17 


Can't continue 

An attempt has been made to continue a pro- 
gram that was halted due to an error, has been 
modified during a break in execution, or does 
not exist. 



Table B-l. 

Error Codes and Messages (continued) 



Code Number Message 

UF 18 Undefined user function 

A USR function has been called before the func- 
tion definition has been given. 

19 No RESUME 

An error-trapping routine has been entered, but 
it contains no RESUME statement. 

20 RESUME without error 

A RESUME statement has been encountered 
before an error-trapping routine has been 
entered. 

21 Unprintable error 

An error message is not available for the error 
condition that exists. This is usually caused by 
an error with an undefined error code. 

22 Missing operand 

An expression contains an operator with no 
operand following it. 

23 Line buffer overflow 

An attempt has been made to input a line that 
has more than 255 characters. 

26 FOR without NEXT 

A FOR statement has been encountered without 
a matching NEXT statement. 

29 WHILE without WEND 

A WHILE statement does not have a matching 
WEND statement. 

30 WEND without WHILE 

A WEND statement does not have a matching 
WHILE statement. 

50 FIELD overflow 

A FIELD statement is attempting to allocate 
more bytes than were specified for the record 
length of a random file. 

51 Internal error 

An internal malfunction has occurred in 
MBASIC. Report the conditions under which 
the message appeared to Microsoft. 
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Table B-l. 

Error Codes and Messages (continued) 



Code Number Message 



52 Bad file number 

A statement or command references a file with 
a file number that is not open or is out of the 
range of file numbers specified at initialization. 

53 File not found 

A LOAD. KILL, or OPEN statement has refer- 
enced a file that does not exist on the named disk. 

54 Bad file mode 

An attempt has been made to use PUT, GET, or 
LOF with a sequential file, to LOAD a random 
file, or to execute an OPEN statement with a file 
mode other than I, 0, or R. 

55 File already open 

An OPEN command for sequential output has 
been issued for a file that is already open, or a 
KILL command has been given for a file that 
is open. 

57 Disk I/O error 

An I/O error has occurred during a disk I/O 
operation. This is a fatal error; that is, the oper- 
ating system cannot recover from the error. 

58 File already exists 

The file name specified in a NAME statement is 
identical to a file name already in use on the 
disk. 

61 Disk full 

All disk storage space is in use. 

62 Input past end 

An INPUT statement is executed for a null 
(empty) file or after all the data in the file has 
been input. To avoid this error, use the EOF 
function to detect the end of file. 

63 Bad record number 

In a PUT or GET statement, a record number 
has been given that is either greater than the 
maximum allowed (32767) or equal to 0. 
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Table B-l. 

Error Codes and Messages (continued) 



Code Number Message 

64 Bad file name 

An illegal form is used for the file name with 
LOAD, SAVE, KILL, or OPEN (for example, a 
file name with too many characters). 

66 Direct statement in file 

A direct statement has been encountered in an 
ASCII-format file by the LOAD command. The 
LOAD command is terminated. 

67 Too many files 

An attempt has been made to create a new file 
(using SAVE or OPEN) when all the directory 
entries for that disk are full. 



Source: BASIC-80 Reference Manual 1979 (Version 5.0). Bellevue, Wash.: Microsoft, Inc., 1979. 



c 

ASCII Codes 



Table C-l lists the ASCII codes for characters. 



Table C-l. 

ASCII Character Codes 



DEC OCTAL HEX ASCII 


DEC OCTAL HEX ASCII 





000 


00 


NUL 


17 


021 


11 


DC1 


1 


001 


01 


SOH 


18 


022 


12 


DC2 


2 


002 


02 


STX 


19 


023 


13 


DC3 


3 


003 


03 


ETX 


20 


024 


14 


DC4 


4 


004 


04 


EOT 


21 


025 


15 


NAK 


5 


005 


05 


ENQ 


22 


026 


16 


SYN 


6 


006 


06 


ACK 


23 


027 


17 


ETB 


7 


007 


07 


BEL 


24 


030 


18 


CAN 


8 


010 


08 


BS 


25 


031 


19 


EM 


9 


Oil 


09 


HT 


26 


032 


1A 


SUB 


10 


012 


OA 


LF 


27 


033 


IB 


ESC 


11 


013 


0B 


VT 


28 


034 


1C 


FS 


12 


014 


OC 


FF 


29 


035 


ID 


GS 


13 


015 


OD 


CR 


30 


036 


IE 


RS 


14 


016 


OE 


SO 


31 


037 


IF 


US 


15 


017 


OF 


SI 


32 


040 


20 


SPACE 


16 


020 


10 


DLE 


33 


041 


21 


! 
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Table C-l. 

ASCII Character Codes (continued) 



DEC 


OCTAL HEX 


ASCII 




DEC 


OCTAL HEX 


ASCII 


34 


042 


22 






76 


114 


4C 


L 


35 


043 


23 


# 




77 


115 


4D 


M 


36 


044 


24 


$ 




78 


116 


4E 


N 


37 


045 


25 


% 




79 


117 


4F 





38 


046 


26 


& 




80 


120 


50 


P 


39 


047 


27 






81 


121 


51 


Q 


40 


050 


28 


( 




82 


122 


52 


R 


41 


051 


29 


) 




83 


123 


53 


S 


42 


052 


2A 


* 




84 


124 


54 


T 


43 


053 


2B 


+ 




85 


125 


55 


U 


44 


054 


2C 


• 




86 


126 


56 


V 


45 


055 


2D 


— 




87 


127 


57 


w 


46 


AFC 

(Job 


Zhi 






88 


1 on 


ro 

58 


X 


47 


act n 

057 


2r 


/ 




89 


1 O 1 

131 


59 


Y 


48 


060 


30 







90 


132 


5A 


Z 


49 


Ool 




1 




91 


133 


515 


[ 


50 




62, 


2 




92 


134 


5L 


\ 


51 


Ubo 


QQ 
OO 


3 




93 


1 QK 

loO 


en 
OL) 


] 


52 


Ub4 


Q/1 


4 




94 


136 


5E 


A 


53 


A£K 

Ubo 


QtC 
OO 


r 






95 


137 


5F 


— 


54 


Ubb 


Of? 

CSD 


c 
D 




96 


140 


60 


1 


55 


ub i 


Q7 
O < 


rj 




97 


141 


61 


a 


56 


U IV 


QQ 
OO 


o 

O 




98 


142 


62 


b 


57 


V 1 L 


QQ 

OV 


Q 

9 




99 


143 


63 


c 


58 


0.79 
U ( £ 


Q A 
OA 






100 


144 


64 


d 


59 


073 


3B 


» 




101 


145 


65 


e 


60 


074 


3C 


< 




102 


146 


66 


f 


61 


075 


3D 


= 




103 


147 


67 


g 


62 


076 


3E 


> 




104 


150 


68 


h 


63 


077 


3F 


? 




105 


151 


69 


i 


64 


100 


40 


@ 




106 


152 


6A 


j 


65 


101 


41 


A 




107 


153 


6B 


k 


66 


102 


42 


B 




108 


154 


6C 


1 


67 


103 


43 


C 




109 


155 


6D 


m 


68 


104 


44 


D 




110 


156 


6E 


n 


69 


105 


45 


E 




111 


157 


6F 





70 


106 


46 


F 




112 


160 


70 


P 


71 


107 


47 


G 




113 


161 


71 


q 


72 


110 


48 


H 




114 


162 


72 


r 


73 


111 


49 


I 




115 


163 


73 


s 


74 


112 


4A 


J 




116 


164 


74 


t 


75 


113 


4B 


K 




117 


165 


75 


u 
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Table C-l. 

ASCII Character Codes (continued) 



DEC 


OCTAL HEX 


ASCII 


DEC 


OCTAL HEX 


ASCII 


118 


166 


76 


V 


123 


173 


7B 


{ 


119 


167 


77 


w 


124 


174 


7C 


1 


120 


170 


78 


X 


125 


175 


7D 


} 


121 


171 


79 


y 


126 


176 


7E 




122 


172 


7A 


z 


127 


177 


7F 


DEL 



D 

Answers to the Exercises 



Chapter 2 



1. A, C, D, E, F, G 

2. a. String 

b. Numeric 

c. Numeric 

d. String 

3. a. 26 

b. 27 

c. 15 

d. 4 

e. 32 
/. 27 

4. 10 LET A = 2 
20 LET B = 3 
30 LET C s 5 

40 X = A + m - c 
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50 PRINT X 

40 X = (A - B)C 

70 PRINT X 

80 X » <B*C)/(AMA*6» 
9(i PRINT X 

100 X = t.A + B)/iC - A) 
110 PRINT X 



5. 10 INPUT "A.B.C,B";A,B,C,D 
20 SUM = A+B+C+D 
30 AVERAGE = SUM/4 
40 PRINT *SUM=";SUM 
50 PRINT "AVERAGE =": AVERAGE 
60 END 



6. 10 INPUT "What temperature would you like converted";F 
20 C = (5/9)*(F - 32.' 

30 PRINT F;"degrees fahrenheit is":C;"degrees Celsius." 

7. 10 B = 8:H = 11 
20 A = (1/2)*8*N 

30 PRINT "Triangle area =";A 
40 R = 3 

50 A = 3.1416**2 

60 PRINT "Circle area =";A 

70 S = 6 
80 A = S«2 

90 PRINT "Square area =";A 
100 Bl = 8:B2 = 6:H = 4 
110 A = (1/2WB1 + B2)«H 
120 PRINT "Trapezoid area =";A 

8. 10 FIRSTS = "Joe" 

20 LASTS = "Cowunhiz* 

30 ADCRlt = "123 Bit View Drive" 

40 ABDR2S = "Floppyvill. Ca. 98765" 

50 PRINT FIRSTS;" "; LASTS;" ";ADDR1S;" " ; ADDR2S 

60 PRINT 

70 PRINT LASTS;", "; FIRSTS 
80 PRINT ADDR1S 
90 PRINT ADDR2S 
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Chapter 3 



L 5 REM Written 3/12/33 
10 REM - Triangle 
» B = 8:H = 11 

30 A - (1/2)*B*H : * Equation for area of triangle 
40 PRINT "Triangle area =":A 
50 REM - Circle 
60 R = 3 

70 A = 3.1416*fi'2 : ' Equation for area of circle 
80 PRINT "Circle area =":A 
90 REM - Square 

100 S = 6 

110 A = S'2 : * Equation for area of square 

120 PRINT "Square area =";A 
130 REM - Trapezoid 
140 Bl = 8:B2 = 6:H = 4 

150 A = U/2)*(B1 + B2)*H : ' Equation for area of trapezoid 
160 PRINT "Trapezoid area =";A 

2. B (begins with a number) and C (includes a question 
mark) 

3. a. FILES "*.DAT" 

b. FILES "??" 

c. FILES "??A»" 

4. SAVE "HAPPY" 
NEW 

LOAD "HAPPY" 
RUN 

NAME "HAPPY. BAS" AS "STUF1B.BAS* 

KILL "STUPID. BAS" 

SYSTEM 



Chapter 4 



1. 10 READ X 

20 IF I = -1 THEN END 

30 IF X >* 10 AND X <= 20 THEN PRINT X 

40 GOTO 10 

50 DATA 17. 4. 37, 41. 26. 11, 1, 40, 32. 16. -! 
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2. 10 READ COUNT 

20 FOR X = 1 TO COUNT 
30 READ A 
40 SUM = SUM + A 
50 NEXT X 

60 PRINT "The sum is";SUM 

70 PRINT "The average is":SUH/COUNT 

30 END 

90 DATA 10 

100 DATA 16. 28. 83, 47, 32, 7, 19, 81, 57. 93 



3. 10 READ N* 

20 IF N$ = "" THEN END 
30 PRINT N$ 
40 GOTO 10 

50 DATA "TOM", "FRED". "GREG", "WALT", "MARK". "SAM". "SALLY", "MARY", "ANN". "SUE", 



4. 10 READ COUNT 

20 FOR X = 1 TO COUNT 

30 READ N$ 

40 PRINT Nt;" ": 

50 NEXT X 

60 END 

70 DATA 10 

80 DATA "TOM" , "FRED" , "GREG" , "WALT" , "MARK" , "SAM" , "SALLY" , "MARY" . "ANN" , "SUE" 



. 10 REM - -=*PAfR0LL.C4*=- 
20 REM - 07/21/83 
30 REM - 

40 INPUT "Nurter of widgets produced per day iO to end)' '.WIDGETS 
50 IF WIDGETS = THEN END 
60 RESTORE 
70 READ EMP.RATE 
80 IF EMP.RATE=0 THEN 120 
90 EHP.EARN=ENP.RATE*S 
100 TOT AL.WAGES=TOTAL.WAGES+EMP. EARN 
110 GOTO 70 

120 UNIT.COST=T0TAL.WAGES/WIDGETS 
130 PRINT "Unit cost = ";UNIT.COST 
140 PRINT 
150 GOTO 40 

160 DATA 4.78,5.01,7.43,0 



'Zero rate signals end of date: 
'Cospute eiployee earnings 
'Total ewloyee wages 

'Comite unit cost 
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Chapter 5 



1. a. Renumbers the program, beginning at line 10, incre- 

menting each line number by 15, and starts the new 
line numbers at 5. 

b. Starts accepting lines, automatically numbering them 
from line 1000, with each line number 100 greater than 
the last. 

c. Deletes all lines from the beginning of the program up 
to (and including) line 70. 

d. Deletes all lines between (and including) 70 and 100. 

e. Starts accepting lines, automatically numbering them 
from line 3, with each line number 10 greater than 
the last. 

/. Renumbers the program, beginning at line 90, incre- 
menting each line number by 10, and starts the new 
line numbers at 100. 

2. a. S;H ESCAPE or press SPACE until the cursor is over the 

A and press D five times 
b. SoDDfum ESCAPE or press SPACE until the cursor is 

over the o and press D three times, then Ium 
C. SCI+D ESCAPE or X+D ESCAPE 
d. S;IC+ESCAPE SPACE SPACE SPACE DD or S;DDDD 

SPACE I+A+B ESCAPE 



Chapter 6 



1. 10 READ A 

20 IF A = -1 THEN 50 

30 PRINT USING "$$####, .t#";A 

40 GOTO 10 

50 END 

60 DATA 7.3845,6752.7,433.789,-1 



10 REM - -=*TENPER.E62*=- 

20 REM - Fahrenheit to Celsius temperature conversion 

3D REN - 12/05/82 
40 REM - 

100 PRINT "Temperature conversion" 
110 PRINT "Fahrenheit to Celsius' 
120 PRINT " " 

130 FRMT*=" m m.W This is the format for the table 

140 F = 30 'Start table at 30 degrees F. 

150 IF F > 215 THEN 200 'End table at 215 degrees F. 

160 C = (5/9)*(F - 32) 'Compute Celsius tesperature 

170 PRINT USING FRMT*;F;C 

180 F = F + 5 'Print every 5 degrees F. 

190 GOTO 150 
200 END 



3. 100 PRINT "NAME AGE SEX PHONE NUMBER" 

110 PRINT " — — L 

120 FRMT*="\ \ ## ! \ \" 

130 READ NAM*, AGE, SEX*, PHONE* 

140 IF NAM*="" THEN 170 

150 PRINT USING FRMT$;NAM$; AGE; SEX*; PHONE* 

160 GOTO 130 

170 END 

180 DATA "MIKE", 24, "M", "413-2807" 
190 DATA "LAURA", 23, "F", "214-5712" 
200 DATA " ALICE", 28, "F", "671 -4242" 
210 DATA "SW1',26,"H',"6r>9896" 
220 DATA ",0,","" 



4. 100 READ NAM*,S1,S2,S3,S4 
110 IF NAM* = "" THEN 150 
120 AV = (S1+S2+S3+S4.1/4 

130 IF AV < 70 THEN PRINT USING "Average score for is #l.l7.";NAM*;Av 
140 GOTO 100 
150 END 

160 DATA "MARY", 63,51, 78, 71 
170 DATA "DON", 83, 62, 91, 51 
180 DATA "FRANK", 72,77, 61, 52 
190 DATA "BETTY", 44,83,71, 68 
200 DATA '*, 0,0,0,0 



5. 10 REM - -=«C6I5.BAS*=- 

20 REM - Simple Interest Loan Table 

30 REM - 12/05/82 
40 REM - 

100 BALANCE = 6000 
510 RATE = .145 
12« PAYMENT = 250 

130 PRINT "Interest table for loan of *6.000, with payment of *250 per month 
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140 PRINT "at 14.5 interest." 

150 PRINT "Month principal interest total payment re*, balance" 

160 PPINT " 1 

170 FRHT$=' tt# imm .« $$!«.*#* $$#«.#» *$»#«# *l 



220 INTEREST = PRINCIPAL*RATE*<1/12) -'Compute interest on princpal 

230 TOTAL. INTEREST = TOTAL. INTEREST + INTEREST 

240 BALANCE = PRINCIPAL - (PAYMENT + INTEREST) Compute new balance 

250 PRINT USING FRMT$ ; MONTH; PR I NC I P AL ; I NTEREST ; PAYMENT + INTEREST; BALANCE 

260 MONTH = MONTH + 1 

270 GOTO 200 

280 PRINT 

290 PRINT USING "Total interest: **$*«#,.#♦": TOTAL. INTEREST 
300 END 



1. 100 REM - Part (a) 
110 FOR X = 1 TO 5 
120 FOR Y = 1 TO X 
130 PRINT "I"; 
140 NEXT Y 
150 PRINT 
160 NEXT X 
170 PRINT 

200 REM - Part (b) 

210 FOR X = 1 TO 5 

220 PRINT TAB(6-X); 

230 FOR Y = 1 TO X*2 - 1 

240 PRINT "*"; 

250 NEXT Y 

260 PRINT 

270 NEXT X 

280 PRINT 

300 REM - Part (c) 

310 FOR X = 1 TO 3 

320 PRINT TAB(X);*«*";TAB(8 - X);"**" 
330 NEXT 1 

340 PRINT TAB(4);"**' 

350 FOR X = 3 TO 1 STEP -1 
360 PRINT TAB'S - X);"**" 
370 NEXT X 
380 PRINT 



ISO MONTH = 1 
190 TOTAL. INTEREST = 
200 IF MONTH > 12 THEN 2S0 
210 PRINCIPAL = BALANCE 



'Start at Bonth 1 
'Accumulated interest payed 
•'Compute balance for each month 
'Principal is last month s balance 
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400 REM - Part td) 
410 FOR X = 1 TO 7 

420 IF X > 4 THEN PRINT TAB i X - 4) 
430 PRINT TAB(X) 

440 IF X < 4 THEN PRINT TABCX + 4);"«' ELSE PRINT 

450 NEXT X 

460 PRINT 

500 REM - Pari ie) 

510 PRINT TAB(5); "*" 

520 FOR X = 1 TO 4 



530 


PRINT TAB (5 - X)i 


540 


FOR Y = 1 TO X 


550 


PRINT "<"; 


560 


NEXT Y 


570 


PRINT * "j 


580 


FOR Y = 1 TO I 


590 


PRINT ">": 


600 


NEXT r 


610 


PRINT 



620 NEXT X 

630 FOR X = 1 TO 2 

640 PRINT TAB (4) ;"###' 

650 NEXT X 



2. 100 PRINT TAB(4); 
110 FOR X = 1 TO 12 
120 PRINT USING " M";X; 
130 NEXT X 
140 PRINT 

150 PRINT " + 

160 FOR X = 1 TO 12 

170 PRINT USING "## !*;X) 

180 FOR I = 1 TO 12 

lvO PRINT USING ";X*Y| 

200 NEXT Y 

210 PRINT 

220 NEXT X 



3. 100 INPUT "Press (RETURN/ to tine integer loop. ":A* 
110 PRINT "GO! 
120 FOR IX = 1 TO 10000:NEXT It 
130 PRINT "STOP!" 

140 INPUT "Press < RETURN) to tine double precision loop. ";At 
150 PRINT 'GO!" 

1*0 FOR I! = 1 TO 10000:NEXT I! 
170 PRINT "STOP!" 
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4. 10 REM - -=*INTEREST.C6*=- 

20 REM - Simple Interest Table (Double precision) 

30 REM - 11/25/82 

40 REM - 

100 DEFDBL A-Z 

110 INPUT "Enter yearly interest rate in percent 7. ".RATE 

120 RATE = RATE/ 100 ''Convert RATE to i deciaal 

130 INPUT "Enter starting balance t", BALANCE 

140 INPUT "Enter number of years to calculate: ".YEAR 

150 PRINT 

160 PRINT "Month principal interest balance* 



170 PRINT " " 

180 FRMT$=" ##i $*#######,.#! *$#####.!#» $$###«##. 

190 MONTH = 1 'Start at month 1 

200 IF MONTH > 12*YEAR THEN 270 'Compute balance for each month 

210 PRINCIPAL = BALANCE 'Principal is last month' s balance 

220 INTEREST = PRINCIPAL*RATE*(1/12) 'Compute interest on principal 

230 BALANCE = PRINCIPAL + INTEREST 'Compute new balance 

240 PRINT USING FRMT$;MONTH;PRINCIPAL; INTEREST; BALANCE 

250 MONTH = MONTH + 1 

260 GOTO 200 

270 PRINT 

280 PRINT USING "Ending balance: **$«♦#»#..«•; BALANCE 

290 END 

5. Since X is an integer (from line 10), adding .4 to it does not 
change its value, so it is still equal to 1 each time the 
FOR/NEXT loop executes. 
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1. 100 RANDOMIZE 

110 PRINT TABUS); "Random number range* 

120 PRINT "0 to 20 10 to 45 -10 to +10 -50 to .34 to 1.83" 

130 PRINT " " 

140 FRMT$=" H ## ### *tt ##.##* 

150 FOR I = 1 TO 10 

160 Rl = INT(21*RND; 

170 R2 = INT(36*RND) + 10 

180 R3 = INT(21*RND) - 10 

190 R4 = -INT(51«RND) 

200 R5 = (INK (183 - 34)*RNB) + 34)/100 

210 PRINT USING FRMT*;R1;R2:R3:R4;R5 

220 NEXT I 



2. 10 RB! - -=*C0SINE.C8*=- 

20 REM - Print a cosine wave cssrve 

30 REM - 11/21/82 
40 REM - 

100 A=20 Wave amplitude 

110 E=.4 'Step 5 lie 

120 FOR X = i TO 2*A + 1 

130 PRINT *-•: 'Print Y axis 

140 NEXT X 

150 PRINT " Y axis" 

160 YO = A + 1 'Tab location of X axis 

170 FOR X = TO 4*3.14 STEP E 

180 Y = YO + F1X(A*C0S(X) + .5) 'Conpute tab location of point 
190 IF Y > YO THEN PRINT TAB(YO) : * i " ; TAB( Y) ; "*° 'Y is right of X axis 
200 IF Y < YO THEN PRINT TAB(Y);"*":TAB(YO):"i" 'Y is left of X axis 
210 IF Y = YO THEN PRINT TAB(Y):"*" "'Y is on X axis 

220 NEXT X 

230 PRINT TABOO - 3);"X axis" 



3. 10 REM - -=C8#3,BAS*=- 

20 REM - Add to fractions and reduce to lowest terms 

30 REM - 12/05/81 

100 DEFINT A-Z Use integers for all variables 

110 INPUT "Enter numerator and denominator for 1st fraction: ",N1,D1 

120 INPUT "Enter numerator and denominator for 2nd fraction: ".N2.D2 

130 IF Dl > D2 THEN LCD = 01 ELSE LCD = D2 'Set LCD to largest of D1.D2 

140 WHILE INT(LCD/Dl.i O LCD/'Dl OR INT(LCD/D2) <> LCD/ 02 

150 LCD = LCD + 1 Find LCD 

m WEND 

170 PRINT:PRINT "The lowest common denominator is";LCD 
180 ' 

190 'Add fractions and reduce to lowest terms. 

200 'N will be the new numerator and LCD will be the new denominator. 

210 ' 

220 N = N1*(LCD/D1) + N2*aCD/D2i Compute numerator 

230 FACTOR = 2 

240 WHILE FACTOR < LCD AND FACTOR < N 'Find all factors of N and LCD 
250 IF INT(N/FACTOR) = N/FACTOR AND INTtLCD/FACTORJ = LCD/FACTOR THEN 280 
260 FACTOR = FACTOR + 1 
270 GOTO 290 

280 N = N/FACTOR: LCD = LCD/FACTOR 'Reduce trad ion 

290 WEND 
300 PRINT 

310 PRINT USING ### ###";N1,N2,N 

320 PRINT " t = • 

330 PRINT USING "t## t*t M#";D1,D2-LCB 



4. Since we are modeling dice, we want our random numbers 
to be distributed like real dice. Using INT(ll*RND)+2 
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will generate the numbers between 2 and 12 with equal 
probability; INT(6*RND)+INT(6*RND)+2 will give 
the correct distribution. 



Chapter 9 



1 100 RANDOMIZE 
' 110 FOR W0RD=i TO 10 
120 LENGTH=INT(RND*4)+5 
130 FOR LETTERS TO LENGTH 
140 CH=INT(RND*26>+65 
150 PRINT CHR*<CH): 
160 NEXT LETTER 
170 PRINT 
180 NEXT WORD 
190 END 

2. 100 FOR I = 1 TO 5 
110 READ MM 
120 PRINT NM$; 

130 COMMA = INSTR(NM$,", "; 

140 PRINT T AB ( 25 ) ; M I D* ( NM* , CGMMA+ 2 j ; " ";LEFT*(NM*.COrW-l) 
150 NEXT I 
160 END 

200 DATA "Smith. Alfred", ".Jones. Ton", "Surges. Mar;" 
210 DATA "Able, Susan", "Haters. Larry* 

3. 10 REM - CW9.3 

20 REM - Password entr? for a progra* 

30 REM - 1/22/33 
40 REM - 

50 DATA "ZYXWVU"."SAMSMITH","GREG123456^" , 

60 REM - *** START m 

100 PRINT "Please enter your password "; 

110 PASSWORD* = "":CH* = INPUT* (1) 

120 WHILE ASC(CH*j O 13 

130 PASSWORD* = PASSWORD* + CH* 

140 CH* = INPUT*(1) 

150 WEND 

160 PRINT 

170 RESTORE Set to read first passwora 

180 READ ENTRY* 'Read first Password 

190 WHILE ENTRY* <> PASSWORD* AND ENTRY* <> " 
200 READ ENTRY* 
210 WEND 
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220 IF ENTRY$="" THEN PRINT "Invalid password.":G0T0 100 
230 PRINT "Password accepted." 
240 REM - 

250 REM - *** MAIN PROGRAM *** 
260 REM - 



4. 10 REM - -=*DEC0DE.C9*=- 
2(i REM - Message decoder 

30 REM - 1/2/83 
40 REM - 

100 ALPHA* ^ABCDEFGHIJKLMNOPQRSTUVWXYZ" -'Upper case alphabet 
110 CODE* = "KIEVNHUP00RAXLTYSZBGWJFCMD" 'One-to-one replacements 
120 PRINTLINE INPUT "Enter a message to decode: "jMESSG* 
130 IF LEN(MESSG$) = THEN END 

140 DECODE* = MESSG$ 'Initialize decoded message 

150 FOR 1=1 TO LENtMESSGt; 

160 INDEX = INSTR(C0D£$.MID$(MESSG$,I.l).t 

170 IF INDEX > THEN MID*(DEC0DE*,I,1) = MID*(ALPHA*. INDEX, 1) 

130 NEXT I 

190 PRINT "The decoded iessage is : ": DECODE* 

200 GOTO 120 
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1. 100 RANDOMIZE 
110 FOR X=l TO 10 
120 A(X) = INT(RND*10O> + 1 
130 PRINT A(X);" *; 
140 NEXT X 
150 PRINT:PRINT 

160 LARGEST = AUi: SMALL = Ad) 
170 FOR X=2 TO 10 

180 IF A'X) > LARGEST THEN LARGEST = A(X) 
190 IF A(X) < SMALL THEN SMALL = A(XJ 
200 NEXT X 

210 PRINT "The largest number in the list is"; LARGEST 
220 PRINT "The smallest number in- the list is"; SMALL 
230 END 



2. 100 RANDOMIZE 

110 FOR X=l TO 10 

120 Ml) = IXTUNMOO) + 1 

130 PRINT A(X);" "; 

140 NEXT i 

•SO PRINT:PRINT 
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m LARGEST = Ati): SMALL » *Ui 
170 LX = 1: SX = 1 
180 FOR *=2 TO 10 

190 IF Ml) > LARGEST THEN LARGEST = A(X):LX = S 
200 IF AfX) < SMALL THEN SMALL = A(X>:SX = I 
210 NEXT I 

220 PRINT "The largest number is":LARGEST:"at position":LX:"in the list." 
230 PRINT "The smallest number is";SMALL;"at Position";SX: "in the list." 
240 END 



3. 100 PRINT "List ft;" 

110 FOR X=l TO 10 
120 READ A(X> 
130 PRINT A(X):° ": 

140 NEXT X 

150 PRINT:PRINT "List B:" 

160 FOR Y=l TO 10 
170 READ B(Y> 
180 PRINT B«¥);" 

190 NEXT 1' 

200 DIM C(20) 

210 X=l: Y=l 

220 FOR 1=1 TO 20 

230 IF ¥<=10 THEN INKY) ELSE 6=9999 

240 IF X<=10 THEN A=A(X) ELSE A=9999 

250 IF A<B THEN C(Z)=A(X):X=X+1 ELSE C(Z)=E(Y):V=Y+1 

260 NEXT 7 

270 PRINT:PRINT "List C: k 

280 FOR Z=l TO 20 
290 PRINT C(Z);* 

300 NEXT 2 

310 END 

320 ' 

330 DATA 7,14,15,19,24,31.38,41,43,49 

340 DATA 1.8.13,14,27,29.35.37,40.44 



4. 100 RANDOMIZE 

110 L0H=100: HlGH=0 

120 FOR X=l TO 4 

130 FOR Y=l TO 5 

140 A(X.Y)=INT(RND*90)+10 

150 PRINT Ai.XVf): 5 "j 

160 IF Aa.YXLOH THEN LQH=A«,Yl 

170 IF A(X,Y)>HIGH THEN HIGH=A(X,Y> 

130 NEXT Y 

190 PRINT 

200 NEXT X 

210 PRINT "Largest number in the array is";HIGH 
220 PRINT "Smallest number in the array is":LOI 
230 END 



5. 100 RANDOMIZE 

110 PRINT: PRINT "First array:' 

120 FOR X=l TO 4 

130 FOR Y=l TO 5 

140 A(X,Y> = INT(RND*90.) + 10 

150 PRINT A(X,Y>;' "; 

180 NEXT V 

190 PRINT 

200 NEXT i 

210 PRINT:PRINT "Add column 1 to column 5:' 

220 FOR X=l TO 4 

230 A(X.5> = A(X.5) * A(X.l) 

240 NEXT X 

250 FOR X=l TO 4 

260 FOR Y=l TO 5 

270 PRINT AiX.Y);" "; 

280 NEXT Y 

290 PRINT 

300 NEXT X 

310 END 



6. 100 RANDOMIZE 
110 FOR X=l TO 6 
120 FOR Y=l TO * 
!30 A«.Y)=lNT(RM}*lQl.-50 
140 PRINT USING ; t»#':A(X.Y); 
150 NEXT Y 
160 PRINT 
170 NEXT X 
180 FOR Y=i TO 8 
190 PRINT * — *; 
200 NEXT Y 
210 PRINT 
220 FOR Y=l TO 8 
230 HIGH=A(1.Y) 
240 FOR t=2 TO 6 

250 IF HIGH<A«.Y'j THEN HIGH=A(X.Y) 
260 NEXT X 

270 PRINT USING "####*;HIGH; 
280 NEXT V 
290 PRINT 
300 PRINT 

310 PRINT "Nutter at bo t ton ot each coluwi is- largest in that colutt.* 
320 END 
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1. 100 PRINT 

110 PRINT "Would you like to:" 

120 PRINT 4 1) Convert ■eters to feet?' 

130 PRINT " 2) Convert liters lo gallons?* 

140 PRINT " II Convert Celsius to Fahrenheit:" 

150 PRINT " 4.) End?" 

160 INPUT "Enter your choice (1-4): ";CH0ICE 

170 ON CHOICE GOSUB 230,330,430.198 

180 GOTO 100 

190 END 

200 RBI 

210 REM Conversion: meters to feet 

220 RBI 
230 PRINT 

240 INPUT "Number of meters to convert to feet iO to end.': ": METERS 
250 IF METERS=0 THEN 290 
260 FEET=HETERS/.3048 

270 PRINT METERS: "meter(s) is equal to ";FEET; "feet. 
280 GOTO 230 
290 RETURN 
300 REM 

310 REM Conversion: liters to gallons 

320 REM 
330 PRINT 

340 INPUT "Nutter of liters to convert to gallons (0 to end-: ^LITERS 
350 IF LITERS. = THEN 390 
360 GALL0NS=LITERS/3.7853 

370 PRINT LITERS; "literis.i is equal to "GALLONS; "gallon's).* 
380 GOTO 330 
390 RETURN 
400 REM 

410 REM Conversion: fahrenheit to Celsius 

420 REM 
430 PRINT 

440 INPUT "Enter Celsius te»perature to be converted (0 to end;: ":CEL 
450 IF CEL=0 THEN 490 
460 FAHR=CEL*9/5+32 

470 PRINT CEL; "degrees Celsius is equal to ";FAHR: "degrees Fahrenheit. 
480 GOTO 430 
490 RETURN 



2. 100 DIM A(50) 
110 FOR X=l TO 50 
120 A(X)=INT(RND*100>+1 
130 PRINT USING "ttti *;MX>: 
140 IF X/10 = XUO THEN PRINT 
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150 NEXT X 
160 PRINT 

170 INPUT "Do vcu want 1) largest or 2) smallest number? '.CHOICE 

180 IF CHOICE- ;l AND CH0ICEO2 THEN 170 

190 NUMB=A(1) 

200 FOR X=2 TO 50 

210 ON CHOICE GOSUB 290,340 

220 IF COMPARED THEN NUhB=A(X.i 

230 NEXT X 

240 PRINT "The number is";NUMB 
250 E(C 

260 - 

270 •'Compare for largest matter 

280 ' 

290 IF ACX.DNUMB THEN COMPARED ELSE COMPARED 
300 RETURN 

310 - 

320 'Compare for smallest number 

330 

340 IF AttKlMi THEN COMPARED ELSE COMPARED 
350 RETURN 
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1. 100 RANDOMIZE 

HO DIN H0RD$(50i,CaiNT(26; 
120 FOR X=l TO 50 
130 LENGTH = INTiRND*4)+5 
140 FOR Y=l TO LENGTH 

150 WORD* ( X i = HORDt(X) + CHR*(INT(RND*26) + 65) 
160 NEXT Y 

170 PRINT USING "\ \";H0RD$(X): 

180 IF VI = IXI THEN PRINT 

190 NEXT X 

200 FOR X=l TO 50 

210 CH = A5C(W0RD$(X.i) - 64 

220 COUNT (CHI = COUNNCH) + 1 

230 NEXT I 

240 PRINT:PRINT 

25(i PRINT "Number of words beginning with each letter is as follows:' 
260 PRINT 

270 FOR INI TO 26 

280 PRINT USING *!:« CHR$ ( X +64); COUNT (X); 
290 IF X/8 = X\8 THEN PRINT 
300 NEXT X 
310 END 
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2. 100 RANDOMIZE 
HO LET NUMB=3 
120 FOR X=l TO NUMB 
130 AcX>=INT(RND*100»+5>: 
140 NEXT X 
150 WHILE D0NE=0 
160 D0NE=1 
170 FOR X=l TO NLWB+1 

180 IF AUKACX+l) THEN SWAP A(X>.A(X+l):DONE=Oi 
190 NEXT X 
200 WEND 

210 FOR M TO MLIHB 
220 PRINT Mil 
230 NEXT X 
240 END 



3. 7, 10 

4. 100 DEFINT A-Z 

' 110 OPTION BASE 1 
120 SIZE = 100 This is the array size 

130 DIM A(SIZE.» 
140 RANDOMIZE 

150 GOSUB 1000 'Make list 

160 GOSUB 1100 'Print list 

170 PRINT: INPUT "Number to search for? \N 

180 IF N = THEN END 

190 I = 1 : GOSUB 1200 'Search list starting at I = 1 

200 IF INDEX = THEN PRINT "Not found ":GOTO 170 

210 WHILE INDEX <> 

220 PRINT "NuBber found at"; INDEX 

230 1 = 1 + 1 

240 IF I <= SIZE THEN GOSUB 1200 ELSE INDEX = 'Continue searching list 
250 WEND 
260 GOTO 170 
1000 ' 

1010 'Make an array of random numbers 
102O ' 

1030 FOR I = 1 TO SIZE 

1040 Ad) = INT(RND*100) + 1 

1050 NEXT I 

1060 RETURN 

1070 ' 

1080 'Print an array of mutoers 

1090 ' 

1100 FOR I = 1 TO SIZE 

1110 PRINT USING " tH";A(I); 

1120 IF I MOD 15 = THEN PRINT 

1130 NEXT I 

1140 PRINT 

1150 RETURN 



1160 ' 

1170 'Linear search for a number N starting at position I 

1180 'Index will be zero if N is not found 

1190 

1200 WHILE I < SUE AND Ad) <> N 
1210 1=1+1 

1220 UEND 

1230 IF A(I) = N THEN INDEX = I ELSE INDEX = 

1240 RETURN 
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1. 100 DEFINT A-I 

110 ON ERROR GOTO 260 

120 INPUT "Enter name: ",NM$ 

130 INPUT "Enter birth date in the form MM/DD/YY: ",BD$ 
140 FOR I = 1 TO LEN(BDt) 

150 IF IHSTR( "0123456789/ \HID$(BD$, 1 , 1 ) ) = THEN ERROR 255 
160 NEXT I 

170 INPUT "Enter phone number: ",PW 
180 FDR 1=1 TO LEN(PN$) 

190 IF INSTR("0123456789-\MID$(PN$.I,1)) = THEN ERROR 254 
200 NEXT I 
210 PRINT 

220 PRINT NM$ : PRINT BD$ : PRINT PW 
230 PRINT 
240 GOTO 120 
250 

260 IF ERR < 254 THEN ON ERROR GOTO 
270 IF ERR = 254 THEN 300 
280 PRINT "Please re-enter birth date." 
290 RESUME 130 

300 PRINT "Please re-enter phone number.* 
310 RESUME 170 



2. 10 ON ERROR GOTO 100 
20 COUNT = 
30 READ NH$ 
40 PRINT NMt 
50 COUNT = COUNT ♦ 1 
60 GOTO 30 

70 PRINT "Printed^COUNTrnames.- 
80 END 

90 ' 
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100 IF ERR = 4 AND ERL = 30 THEN RESUME 70 
HC ON ERROR GOTO 

120 ' 

130 DATA "RITA FRYBURGERV'SUZAN BLOND", "JOE SIMPLE" 
140 DATA "EGBERT ZZT", "VLADIMIR PUP 
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1. 10 OPEN "0",il,"COPY.DAT' 

20 PRINT: LINE INPUT "Enter name or <RETURN>: \NM$ 
30 IF NM$="" THEN 90 

40 LINE INPUT "Address line 1: " , ADDR1$ 

50 LINE INPUT "Address line 2: ",ADDR2$ 

SO INPUT "Zip code: ".ZIP* 

70 WRITE #1,NM*,ADDR1$,ADDR2*,ZIP* 

80 GOTO 20 

90 CLOSE #1 



2. 100 COL = 15 

110 OPEN "I\#1,"NAHEADDR.SE9" 

120 INPUT "Enter zip code to print: ",UZIPt 

130 WHILE NOT ECRU 

140 INPUT #1,NM*,ADDR1*,ADDR2*,ZIP* 

150 IF ZIP* <> IJZIP* THEN 20U 

160 PRINT TAB(C0L);NH$ 

170 PRINT TAB(C0U;AD0R1* 

180 PRINT TAB(C0L);ADDR2*;" ";ZIP* 

190 PRINT : PRINT 

200 WEND 

210 CLOSE 

220 END 
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1. 100 OPEN "R u , #1 , "NAMEADDR. RND" , 65 
110 FIELD 11,2 AS NUHNMS* 

120 FIELD #1,20 AS F.NM*,2(i AS F.ADDR1$.20 AS F.ADDR2*.5 AS F.HIPt 
130 GET #1,1 

140 NUMNMS * CVKNUMNNS*; 

150 PRINTLINE INPUT "Enter name or <RETURN>: \NW 
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m IF NM*="" THEN 270 

170 NUMNMS = NUMNMS + 1 

180 LINE INPUT "Address line is °, ADDRlt 

m LINE INPUT "Address line 2: \AD0R2t 

200 INPUT "Zip cede: MIP* 

210 LSET F.NMt=NMt 

220 LSET F. ADDRlt = ADDR1$ 

230 LSET F.ADDR2* = ABDR2t 

240 LSET F.ZIP$ = ZIP* 

250 PUT #1, NUMNMS + 1 

260 GOTO 150 

270 LSET NUMNMS* = MKIt(NUMNMS) 
280 PUT 11,1 
290 aOSE 
300 END 

2 100 COL = 15 

" 110 OPEN "R" , #1 , "NAMEADDR. RND* , 65 
120 FIELD #1,2 AS NUMNMS* 

130 FIELD 11,20 AS Ml*. 20 AS ADDR1*,20 AS ADDR2*,5 AS ZIP* 
140 INPUT "Enter lip code to print: \UZIPt 
150 (XT #1,1 

160 NUMNMS = CVI (NUMNMS*) 
170 FOR I = 1 TO NUMNMS 
180 GET #1,1+1 
190 IF ZIP* <> UZIP* THEN 240 
200 PRINT TAB(C0L);NM* 
210 PRINT TAB(COL); ADDRlt 

220 PRINT TAB(C0L);ADDR2t:" ";ZIP* 

230 PRINT : PRINT 
240 NEXT I 
250 CLOSE 
260 END 



3. 100 OPEN "R" , #1 . "NAMEADDR. RND* . 65 
110 FIELD #1,2 AS NUMNMS* 

120 FIELD #1,20 AS F.NHV20 AS F. ADDRlt. 20 AS F.ADJR2*,5 AS F.IIPt 
130 GET #1,1 

140 NUMNMS = CVI (NUMNMS*) 
150 PRINT 

160 PRINT "Choose one of the following: 1 

170 PRINT " 1 ... Enter names and addresses" 

180 PRINT " 2 ... Edit a record" 

190 PRINT " 3 ... End/Close files' 

200 PRINT 

210 INPUT "Enter your selection: ",SEL 
220 IF SEL >= 1 AND SEL <= 3 THEN 250 

230 PRINT "Invalid selection. Enter a mater frc* 1 to 3." 

240 GOTO 200 

250 ON SEL GOSUB 280,470,420 



Answers to Exercises 447 



m GOTO 150 
270 ' 

280 PRINTLINE INPUT "Enter naae or <RETURN>: ".NHt 

290 IF NHt="" THEN 400 

300 NUMNHS = NUMNHS + 1 

310 LINE INPUT "Address line 1: ".ADDRlt 

320 LINE INPUT "Address line 2: ".ADDR2* 

330 INPUT "Zip code: ".ZIP* 

340 LSET F.NM$=NN* 

350 LSET F.ADDR1* = ADDR1$ 

360 LSET F.ADDR2* = ADDR2t 

370 LSET F.Z1P* = ZIP* 

380 PUT #1, NUMNHS + 1 

390 mm 280 

400 RETURN 

410 ' 

420 LSET NUMNMSt = MKIt(NUHtlS) 
430 PUT 11,1 

440 close 

450 END 

460 •' 

470 PRINT "There are";NWH5+l; "records c* file.' 

480 INPUT "Enter record mirier to edit: ".RECNUM 

490 IF RECNUM >= 2 AND RECNUM <= NUMttS + 1 THEN 520 

500 PRINT !, Please enter a record number between 2 and":NUHNMS 

510 GOTO 470 

520 GET l.RECNUN 

530 PRINT "Enter new data or < RETURN) for no change:" 
540 PRINT "Name:°;TAB!16);F.NMt;TAB(40); : INPUT Nfl* 
550 IF NM* <> "" THEN LSET F.NH* = NHt 

560 PRINT "Address line l:";TAB(16);F.ADDRlt;TAB(40): : INPUT ADDRlt 

570 IF ADDRlt © " THEN LSET F. ADDRlt = ADDRlt 

580 PRINT "Address line 2:":TABU6);F.ADDR2t;TAB(40J; : INPUT ADDR2t 

590 IF ADDR2t <> " THEN LSET F. ADDRlt = ADDR2t 

sOO PRINT "Zip code: u ;TAB(16);F.ZIPt;TAB(40): : INPUT ZIP* 

610 IF ZIPt <> "" THEN LSET F.ZIPt = ZIPt 

620 PUT #1, RECNUM 

630 RETURN 

4. 1015 ON ERROR GOTO 3000 

3000 PRINT "MBASIC error code";ERR; "in lme";ERL 

3010 IF ERL >= 1180 THEN GOTO 2010 'Close files Property 

3020 CLOSE 'Header recced O.K. 

3030 END 



5. If the record length is less than the buffer length, more 
than one record can fit into the buffer, and accesses to two 
adjacent records will not cause a disk access. 
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1. a. 145 

b. 204 

c. 9 

d. 223 

2. a. &H91 &0221 
6. &HCC&0314 

c. &H09&O011 

d. &HDF &0337 



a. X 


Y 


NOT (X AND Y) 


1 


1 





1 





1 





1 


1 








1 


b. X 


Y 


NOT(X) OR NOT(Y) 


1 


1 





1 





1 





1 


1 








1 



4. 10 DEFINI A-Z 

20 INPUT "Enter a binary nunber frwi to 11111111: \W 

30 D = 

40 FOR I = 1 TO LBKB1' 

50 D = 2*D Shift bits left one place 

60 IF HID$(B$,I.1> = "1" THEN D = D + 1 
70 NEXT I 

SO PRINT »?■ binary =°;Ifc*deci«al." 

5. 10 DEf INT A-Z 

20 PRINT "Sue in %' Size in bytes' 

30 PRINT ' ' 

40 FHT* =" H tMM* 

50 FOR I = 4 TO 64 STEP 4 

60 PRINT USING FHT*;I;1»2"10 

70 NEXT 1 

SO END 
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6. This region is where MBASIC stores the error messages. 

7. If the starting address is not a multiple of 16, this puts 
spaces into the first line so that it lines up with the other 
lines in the dump. 
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1. a. m DEF FNT(P,R,N) = P*U + R) A N 

6. 10 DEF FNT(X) = A*X"3 ♦ B*X*2 + C 

20 INPUT 'Enter coefficients A. B, ami C: \A.B,C 
30 INPUT "Enter par Meter X: ",X 
40 PRINT "t =";FNT(X> 
50 END 



2. 10 DEFINT A-Z 

20 DEF FNPAD*(Nj = RIGHT$(STR$UC>("00 + N).4> 
30 INPUT 'Enter a nuaber fro* to 9999: *,h 
40 PRINT FNPAMtA) 
50 ENS 

3. 100 DEF FNST0PPRTC=(INSTR(" Xx\INKEY$) > 1; 



200 ABORT = 

210 WHILE NOT ABORT 



300 IF FNSTQPPRTX THEN G0SIJB 500 



400 UEND 

500 PRINT : INPUT "Press C to continue or f to quit: ".At 
510 PRINT 

520 ABORT = (At = "Q*l 
530 RETURN 



4. DEF FNBIT(BYTE.BITNO) = t(BYTE\2*BITN0) AND H 



Index of Programs 



Addresses, 96 

Calorie Counter, 253 

Change from a Purchase, 131 

Compacting, 337 

Craps, 133 

Cryptogram, 161 

Dealing Poker, 177 

Dump Memory, 303 

Enter Federal Tax Tables, 374 

Error Trapping, 351 

Expense Account, 118 

Finding the Largest Value, 60 

Interest, 95 

Inventory, 279 

Keyed File subroutines, 394 

Mail List Editor, 381 

Mail List Label Printer, 389 

Math Quiz, 192 

Menu Driver, 345 

Numbers, 176 



Password, 158 

Payroll, 35, 63, 98, 180, 194, 218 
with FOR/NEXT, 120 
with WHILE/WEND, 119 

Payroll Edit, 356 

Post Employee Hours, 366 

Prime Factors, 136 

Print Checks, 369 

Print Federal Tax Tables, 376 

Replace, 159 

Screen Mask, 325 

Sine Wave, 137 

Subscriber List, 305 

Sum and Average, 33 

Subscriber List, 305 

Sum and Average, 33 

System Initialization, 343 

Test Scores, 215 

Translating Numerals 
to Words, 62 
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ABS, 128 

Adding to a sequential file, 

250-51 
Alignment mask, 368 
AND, 58-59, 292, 294, 295, 320 
Arithmetic operators, 29 
Array, 166, 177 
ASC, 148-51 
ASCII, 148-50, 153, 276 
Assignment statement, 26-28, 36 
AUTO, 71-72 

BACKSPACE key, 9 
Base 2, 290 
Binary, 290, 297, 300 
Binary search, 206, 211 
Bit, 290, 294, 297 
Bit mapping, 290, 309 
Boolean operators, 292-96, 319 
Boot, 3 

Branching, 52, 185 



Bubble sort, 202-04 
Byte, 174, 290, 294 



CAPS lock key, 8 
CHAIN, 253-55, 352 
Changing a line number, 77 
CHR$, 148, 151 
CLOSE, 247, 250 
Colon, with multiple state- 
ments, 34 
Combining strings, 93-94 
Commands, 7 
Comments, 39 
COMMON, 344, 352 
Common variable, 344 
Compacting, 337-40 
Compiler, 12 
Concatenation, 93 
Conditional branching, 52 
CONT, 77, 239-40 
Control characters, 74-76 
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Control characters, continued 
A A, 75 

A C, 75, 77, 155 

A G, 151 

A H, 74-75 

A I, 75 
A 0, 76 
A Q, 76 
A R, 74 
A S, 75-76 
A U, 75 

CONTROL key, 8-9 
COS, 129-30, 324 
Counter, 57, 108 
Counting loop, 63 
CP/M, 2-4, 42 
Cross reference, 335 
CTRL-C, 53, 56 
Cursor, 4 
CVD, 267 
CVI, 267 
CVS, 267 

DATA, 49-51, 62 
Data files, 234, 244 
Debugging, 13, 223 

by modules, 240 
Declaration characters, 101-05 

!, 102, 105 

#, 102, 103 

$, 105 

%, 102, 105 
DEF FN, 313, 328, 362, 363 
Defining functions, 315-24 

numeric functions, 323-24 

string functions, 315-18 
DEFINT, 104-05 
DEFSNG, 104-05 
DEFSTR, 104-05 
DELETE, 72-73 
delete key, 9, 74 
Deleting a line, 34-35 
DIM, 167-68, 175 
Dimension of an array, 167 



DIR. 3, 43 

Direct mode, 5, 166, 232 
Directory, 3-4 
Division by zero, 225-26 
Documentation, 401 
Double-precision, 103, 174 
Dummy data, 55, 62, 63 
Dummy variable, 154 



EDIT, 66-71 
Edit mode, 6 
Editing commands 
A, 70 

C, 68 

D, 67 

E, 70 

H, 70 

I, 68 
K, 70 
L, 66 
Q, 70 
S, 67 
X, 69 

END, 20-21 

Endless loop, 52-53 

EOF, 249, 250, 274 

EQV, 292 ' 

ERASE, 175 

ERL, 229, 230, 231, 234 

ERR, 229, 230, 231, 234 

ERROR, 229, 230, 235, 236, 352 

Error number, 235 

Error routine, 229 

Error trapping, 229, 230 

Errors, 224-26 

Division by zero, 225-26 

Illegal function call, 226 

Out of data, 225 

Program logic, 224 

Run time, 224 

Syntax, 224 

Type mismatch, 225 

Undefined line number, 225 
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ESCAPE key, 9 
EXP, 130 



FIELD, 264, 265, 268, 269, 271, 

284, 363 
File extension, 42 
File name, 42, 246 
File number, 246, 247, 265 
Files, 3 

random access, 263 

sequential, 244, 245 
FILES, 43 
FIX, 128 
Floppy disk, 11 
Flowchart, 60, 199 

symbols, 61 
FOR/NEXT, 107-11, 112, 119, 120, 

126, 172, 178 
Format characters, 87 

numeric, 87-90 

string, 92-93 
Format string, 86, 87, 91, 95 
Format variable, 91 
Formatting, 42, 86-93 

numeric output, 86-92 

string output, 92-93 
FRE, 175 
Functions, 7, 123 

within functions, 318-19 

GET, 268-69, 273, 274 
Global variables, 190, 191 
GOSUB, 187-89 
GOTO, 52, 186 
Greater than (>), 54 



Header record, 283, 284 
Heartbeat, 203 
HEX$, 299 
Hexadecimal, 299, 300 
Hit select, 381 
Home position, 10 



IF/THEN, 53-54 
IF/THEN/ELSE, 57-58 
Illegal function call, 226 
IMP, 292 
Indirect mode, 5 
INKEY$, 155-57, 321 
INPUT, 22-25, 32, 49, 64, 154, 

157, 266 
INPUTS, 249, 250, 269 
INPUT$, 154-55, 158 
INSTR, 145-47, 321 
INT, 106, 124, 128, 132, 134 
Integer division (\), 106 
Integer variables, 102 
Internal error, 238 
Interpreter, 12 



Key files, 379-80, 393 
Keyboard, 8-10 
Keys, 379-80, 393 
KILL, 46 



LEFT$, 142-44 

LEN, 142, 147, 150, 152 

Less than (<), 54 

LET, 26-28, 33, 266 

LINE FEED, 152 

LINE FEED key, 10 

LINE INPUT, 157-58, 160, 180 

Line number, 2 

Linear search, 204-06 

LIST, 17-20 

LLIST, 82-83 

LOAD, 45 

LOF, 265, 284 

LOG, 130 

Logged disk, 3 

Logical operators, 58-60 

Loops, 107, 115 

LPRINT, 82-83 

LPRINT USING, 86-90 

LSET, 265-67, 268 
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Machine language, 12 

Main menu, 350, 354 

Main program, 190, 348 

Mask, 309 

Memory, 173, 174 

Menu, 194, 341 

Menu driver, 353 

MERGE, 275-78 

Micro B+, 335 

MID$ command, 144-45 

MID$ function, 142-44, 150 

MKD$, 267 

MKI$, 267 

MKS$, 267 

MOD, 106, 177 

Model, 246, 249, 264 

Modules, 230 

Multiple statements, 34 

NAME, 45-46 

Nested loops, 171 

FOR/NEXT loops, 111-15 
WHILE/WEND loops, 117-18 

NEW, 19 

NOT, 292, 294 

NULL, 82-83 

Null character, 83 

Numeric data, 6 



OCT$, 299 
Octal, 299 

ON ERROR, 229, 230, 232 
ON ERROR GOTO 0, 233, 235-37 
ON/GOSUB, 190-91 
ON/GOTO, 185-87 
OPEN, 246, 249, 250, 264 
Operating system, 2 
Operators, 8 

arithmetic, 29-30 

Boolean, 292-96, 319 

logical, 58-60 

relational, 54-55 
OPTION BASE, 169, 180 



OR, 58, 60, 292, 296 

Order of precedence, 29-30, 31 

Out of data, 225 

Output, 16 

PEEK, 301-03 

Pivot number, 212 

PMAP, 335 

Pointer, 380 

POKE, 301-03 

Prime number, 136 

PRINT, 16, 28, 50. See also 

LPRINT 
PRINT USING, 86-90, 91, 92-93, 

95, 150. See also LPRINT 

USING 
PRINT#, 246, 248, 250, 269 
Program logic errors, 224 
Prompt, 3 

PUT, 268-69, 272, 273 

Quicksort, 211-14 

Radians, 129 

Random access file, 263 

Random number, 178, 314 

random number generator, 
125 

RANDOMIZE, 125-28, 156 
READ, 49-51, 62 
Record, 59, 244, 269 
Recursion, 212 
Relational operators, 54-55 
REM, 39-42, 64, 191 
RENUM, 73-74, 77, 234 
repeat key, 9 
RESTORE, 56 
RESUME, 229, 230, 232 
RETURN, 187-89 
RETURN key, 8 
RIGHT$, 142-44 
RND, 125-28 
RSET, 265-67, 268 
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RUN, 16, 17, 18, 45 
Run time errors, 224 

SAVE, 44-45 

Screen mask, 325, 381 

Sequential file, 244, 245 

Setting bits, 296-97 

SGN, 131 

shift key, 8 

Shifting bits, 297-99 

SIN, 129-30, 324 

Sine curve, 137 

Single-precision, 101, 102, 174 

SPACE$, 151-53 

SPC, 85-86 

Speed of execution, 340 
SQR, 129 
Statements, 7 
STEP, 108 
STOP, 239-40 
STR$, 147-48 
String arrays, 168 
String data, 6 
String functions, 141 
String type, 105 
STRING?, 151-53, 180 
Subroutine, 187, 191, 364 
Subscripted variables, 165 
SWAP, 198-202 

Syntax error, 4, 11-12, 224, 233 
SYSTEM, 46-47 
System disk, 2 



TAB, 85-86, 92, 97, 138 

tab key, 9 

TAN, 129-30, 324 

Template, 44 

Trace, 114 

TROFF, 238 

TRON, 238 

Truth table, 294 

Two-dimensional arrays, 169-72 

Type declarators, 22. See also 

Declaration characters 
Type mismatch, 225 

Unconditional branching, 52 
Undefined line number, 225 
User documentation, 401 

VAL, 147-48 
Variable, 21 
Variable types, 102-04 

WHILE/WEND, 115-17, 119, 134 

WIDTH, 83-84 

WIDTH LPRINT, 83-84 

Wild card, 43 

Word processor, 333-34 

WRITE #, 246, 250, 269 

XOR, 292, 310 
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